* resolve.c (compare_spec_to_ref): Move coarray ref initialization

	code...
	(resolve_array_ref): ... here.

git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@179672 138bc75d-0d04-0410-961f-82ee72b054a4

diff --git a/gcc/fortran/ChangeLog b/gcc/fortran/ChangeLog
index d1a9014..4c0888f 100644 (file)
--- a/gcc/fortran/ChangeLog
+++ b/gcc/fortran/ChangeLog
@@ -1,5 +1,11 @@
 2011-10-07  Mikael Morin  <mikael.morin@sfr.fr>
 
+       * resolve.c (compare_spec_to_ref): Move coarray ref initialization
+       code...
+       (resolve_array_ref): ... here.
+
+2011-10-07  Mikael Morin  <mikael.morin@sfr.fr>
+
        * check.c (is_coarray): Remove.
        (coarray_check): Use gfc_is_coarray.
 

diff --git a/gcc/fortran/resolve.c b/gcc/fortran/resolve.c
index 84db3dd..e6770db 100644 (file)
--- a/gcc/fortran/resolve.c
+++ b/gcc/fortran/resolve.c
@@ -4396,14 +4396,6 @@ compare_spec_to_ref (gfc_array_ref *ar)
          return FAILURE;
       }
 
-  if (as->corank && ar->codimen == 0)
-    {
-      int n;
-      ar->codimen = as->corank;
-      for (n = ar->dimen; n < ar->dimen + ar->codimen; n++)
-       ar->dimen_type[n] = DIMEN_THIS_IMAGE;
-    }
-
   return SUCCESS;
 }
 
@@ -4672,6 +4664,14 @@ resolve_array_ref (gfc_array_ref *ar)
   if (!ar->as->cray_pointee && compare_spec_to_ref (ar) == FAILURE)
     return FAILURE;
 
+  if (ar->as->corank && ar->codimen == 0)
+    {
+      int n;
+      ar->codimen = ar->as->corank;
+      for (n = ar->dimen; n < ar->dimen + ar->codimen; n++)
+       ar->dimen_type[n] = DIMEN_THIS_IMAGE;
+    }
+
   return SUCCESS;
 }