re PR fortran/50420 ([Coarray] lcobound doesn't accept coarray subcomponents)

	PR fortran/50420
	* check.c (dim_corank_check): Use gfc_get_corank to get corank.

From-SVN: r180148

diff --git a/gcc/fortran/ChangeLog b/gcc/fortran/ChangeLog
index 2b3ca85b6e15f395b44bef2aa382801a8980ee91..57522e76aeb7a164e73f1b41554b343919fe3667 100644 (file)
--- a/gcc/fortran/ChangeLog
+++ b/gcc/fortran/ChangeLog
@@ -1,3 +1,8 @@
+2011-10-18  Mikael Morin  <mikael@gcc.gnu.org>
+
+       PR fortran/50420
+       * check.c (dim_corank_check): Use gfc_get_corank to get corank.
+
 2011-10-18  Mikael Morin  <mikael@gcc.gnu.org>
 
        PR fortran/50420

diff --git a/gcc/fortran/check.c b/gcc/fortran/check.c
index 66e661bf659601a6a3cc5b163ef1a3ca2dee6832..eb8b3e1b2a21e4bad76801d3c3a9d1fca25e4645 100644 (file)
--- a/gcc/fortran/check.c
+++ b/gcc/fortran/check.c
@@ -511,7 +511,6 @@ dim_check (gfc_expr *dim, int n, bool optional)
 static gfc_try
 dim_corank_check (gfc_expr *dim, gfc_expr *array)
 {
-  gfc_array_ref *ar;
   int corank;
 
   gcc_assert (array->expr_type == EXPR_VARIABLE);
@@ -519,8 +518,7 @@ dim_corank_check (gfc_expr *dim, gfc_expr *array)
   if (dim->expr_type != EXPR_CONSTANT)
     return SUCCESS;
 
-  ar = gfc_find_array_ref (array);
-  corank = ar->as->corank;
+  corank = gfc_get_corank (array);
 
   if (mpz_cmp_ui (dim->value.integer, 1) < 0
       || mpz_cmp_ui (dim->value.integer, corank) > 0)