[Bug fortran/25964] [4.1/4.2 Regression] NIST regression on fm311.f

[pault at gcc dot gnu dot org]

------- 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  <pault@gcc.gnu.org>

        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  <pault@gcc.gnu.org>

        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  <mhesseli@caltech.edu>
+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