re PR fortran/25964 (NIST regression on fm311.f)

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.

From-SVN: r110307

diff --git a/gcc/fortran/ChangeLog b/gcc/fortran/ChangeLog
index 37f100d4ce7c89546d61f8584e2f0b8a5c542766..2100d5c3acb9127dbc68577d6a683ac0e70ec170 100644 (file)
--- a/gcc/fortran/ChangeLog
+++ b/gcc/fortran/ChangeLog
@@ -1,3 +1,9 @@
+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.
+
 2006-01-27  Jakub Jelinek  <jakub@redhat.com>
 
        PR fortran/25324

diff --git a/gcc/fortran/resolve.c b/gcc/fortran/resolve.c
index 99fb2a2dd84a58792edde752ae2d647f6440298d..ca89f887931c8a2da8974f357146280288be38d2 100644 (file)
--- a/gcc/fortran/resolve.c
+++ b/gcc/fortran/resolve.c
@@ -1304,6 +1304,7 @@ resolve_function (gfc_expr * expr)
   else if (expr->value.function.actual != NULL
             && expr->value.function.isym != NULL
             && expr->value.function.isym->generic_id != GFC_ISYM_LBOUND
+            && expr->value.function.isym->generic_id != GFC_ISYM_LOC
             && expr->value.function.isym->generic_id != GFC_ISYM_PRESENT)
     {
       /* Array instrinsics must also have the last upper bound of an

diff --git a/gcc/testsuite/ChangeLog b/gcc/testsuite/ChangeLog
index 04f87643338b5aa97fa6f6d46cf1ee825bb2b64c..ff4f007785d32cef324383b3624674586c30c2c2 100644 (file)
--- a/gcc/testsuite/ChangeLog
+++ b/gcc/testsuite/ChangeLog
@@ -1,3 +1,8 @@
+2005-01-27  Paul Thomas  <pault@gcc.gnu.org>
+
+       PR fortran/25964
+       * gfortran.dg/assumed_size_refs_3.f90: New test.
+
 2006-01-27  Ben Elliston  <bje@au.ibm.com>
 
        * gcc.misc-tests/dectest.exp: Remove defunct comment.

diff --git a/gcc/testsuite/gfortran.dg/assumed_size_refs_3.f90 b/gcc/testsuite/gfortran.dg/assumed_size_refs_3.f90
new file mode 100755 (executable)
index 0000000..b8aa44b
--- /dev/null
+++ b/gcc/testsuite/gfortran.dg/assumed_size_refs_3.f90
@@ -0,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
\ No newline at end of file