------- Comment #5 from pault at gcc dot gnu dot org 2006-01-27 21:20 ------- Subject: Bug 25964
Author: pault Date: Fri Jan 27 21:20:12 2006 New Revision: 110307 URL: http://gcc.gnu.org/viewcvs?root=gcc&view=rev&rev=110307 Log: 2005-01-27 Paul Thomas <[EMAIL PROTECTED]> PR fortran/25964 * resolve.c (resolve_function): Add GFC_ISYM_LOC to the list of generic_ids exempted from assumed size checking. 2005-01-27 Paul Thomas <[EMAIL PROTECTED]> PR fortran/25964 * gfortran.dg/assumed_size_refs_3.f90: New test. Added: trunk/gcc/testsuite/gfortran.dg/assumed_size_refs_3.f90 (with props) Modified: trunk/gcc/fortran/ChangeLog trunk/gcc/fortran/resolve.c trunk/gcc/testsuite/ChangeLog Added: trunk/gcc/testsuite/gfortran.dg/assumed_size_refs_3.f90 URL: http://gcc.gnu.org/viewcvs/trunk/gcc/testsuite/gfortran.dg/assumed_size_refs_3.f90?root=gcc&view=auto&rev=110307 ============================================================================== --- trunk/gcc/testsuite/gfortran.dg/assumed_size_refs_3.f90 (added) +++ trunk/gcc/testsuite/gfortran.dg/assumed_size_refs_3.f90 Fri Jan 27 21:20:12 2006 @@ -1,0 +1,17 @@ +! { dg-do compile } +! Tests the fix for PR25951, a regression caused by the assumed +! size patch. +! Test case provided by Mark Hesselink <[EMAIL PROTECTED]> +PROGRAM loc_1 + integer i(10) + call f (i) +CONTAINS + SUBROUTINE f (x) + INTEGER, DIMENSION(*) :: x + INTEGER :: address +! The next line would cause: +! Error: The upper bound in the last dimension must appear in the +! reference to the assumed size array 'x' at (1) + address=LOC(x) + END SUBROUTINE f +END PROGRAM loc_1 Propchange: trunk/gcc/testsuite/gfortran.dg/assumed_size_refs_3.f90 ('svn:executable' added) -- http://gcc.gnu.org/bugzilla/show_bug.cgi?id=25964
