From: Asher Langton <langton2@llnl.gov>
Date: Thu, 2 Jun 2011 21:36:02 +0000 (+0000)
Subject: re PR fortran/37039 (Cray pointer with pointee DIMENSION statement after POINTER... 
X-Git-Url: https://git.libre-soc.org/?a=commitdiff_plain;h=11126dc093925fdfebfb0d3f9eff60a75d5e5a23;p=gcc.git

re PR fortran/37039 (Cray pointer with pointee DIMENSION statement after POINTER statement)

    * decl.c (variable_decl): Merge current_as before copying to cp_as.

    * gfortran.dg/PR37039.f90: New test.

From-SVN: r174582
---

diff --git a/gcc/fortran/ChangeLog b/gcc/fortran/ChangeLog
index e7b567e6337..fec047ed63b 100644
--- a/gcc/fortran/ChangeLog
+++ b/gcc/fortran/ChangeLog
@@ -1,3 +1,8 @@
+2011-06-02  Asher Langton  <langton2@llnl.gov>
+
+	PR fortran/37039
+	* decl.c (variable_decl): Merge current_as before copying to cp_as.
+
 2011-06-02  Steven G. Kargl  <kargl@gcc.gnu.org>
 
 	PR fortran/49265
diff --git a/gcc/fortran/decl.c b/gcc/fortran/decl.c
index f9141567450..7098368e56e 100644
--- a/gcc/fortran/decl.c
+++ b/gcc/fortran/decl.c
@@ -1763,9 +1763,7 @@ variable_decl (int elem)
 
   /* Now we could see the optional array spec. or character length.  */
   m = gfc_match_array_spec (&as, true, true);
-  if (gfc_option.flag_cray_pointer && m == MATCH_YES)
-    cp_as = gfc_copy_array_spec (as);
-  else if (m == MATCH_ERROR)
+  if (m == MATCH_ERROR)
     goto cleanup;
 
   if (m == MATCH_NO)
@@ -1773,6 +1771,9 @@ variable_decl (int elem)
   else if (current_as)
     merge_array_spec (current_as, as, true);
 
+  if (gfc_option.flag_cray_pointer)
+    cp_as = gfc_copy_array_spec (as);
+
   /* At this point, we know for sure if the symbol is PARAMETER and can thus
      determine (and check) whether it can be implied-shape.  If it
      was parsed as assumed-size, change it because PARAMETERs can not
diff --git a/gcc/testsuite/ChangeLog b/gcc/testsuite/ChangeLog
index c6c4b068366..2a45ec1c57a 100644
--- a/gcc/testsuite/ChangeLog
+++ b/gcc/testsuite/ChangeLog
@@ -1,3 +1,8 @@
+2011-06-02  Asher Langton  <langton2@llnl.gov>
+
+	PR fortran/37039
+	* gfortran.dg/PR37039.f90: New test.
+
 2011-06-02  Nicola Pero  <nicola.pero@meta-innovation.com>
 
 	PR objc/48539
diff --git a/gcc/testsuite/gfortran.dg/PR37039.f90 b/gcc/testsuite/gfortran.dg/PR37039.f90
new file mode 100644
index 00000000000..6311f274c8a
--- /dev/null
+++ b/gcc/testsuite/gfortran.dg/PR37039.f90
@@ -0,0 +1,15 @@
+! { dg-do compile }
+! { dg-options "-fcray-pointer" }
+!
+! Test for PR37039, from an issue on comp.lang.fortran
+! http://groups.google.com/group/comp.lang.fortran/msg/8cfa06f222721386
+
+      subroutine test(nnode) 
+      implicit none 
+      integer n,nnode 
+      pointer(ip_tab, tab) 
+      integer , dimension(1:nnode) :: tab 
+      do n=1,nnode 
+         tab(n) = 0 
+      enddo 
+      end subroutine test