trans-array.c (gfc_conv_expr_descriptor): Use codim instead of loop.codimen as argume...

	* trans-array.c (gfc_conv_expr_descriptor): Use codim instead of
	loop.codimen as argument to gfc_get_array_type_bounds.

From-SVN: r179677

diff --git a/gcc/fortran/ChangeLog b/gcc/fortran/ChangeLog
index 9428b5147298400b912a4b572518133f31a70392..78f6885aeb8ebed3e77c52ab5e4e773d45b0cff0 100644 (file)
--- a/gcc/fortran/ChangeLog
+++ b/gcc/fortran/ChangeLog
@@ -1,3 +1,8 @@
+2011-10-07  Mikael Morin  <mikael.morin@sfr.fr>
+
+       * trans-array.c (gfc_conv_expr_descriptor): Use codim instead of
+       loop.codimen as argument to gfc_get_array_type_bounds.
+
 2011-10-07  Mikael Morin  <mikael.morin@sfr.fr>
 
        * trans-array.h (struct gfc_se): New flag want_coarray.

diff --git a/gcc/fortran/trans-array.c b/gcc/fortran/trans-array.c
index 88998dea47ec3dd5656d24a95aedc77367c3fce7..0f5f29ccb1d0ee0a37dc2ff9b7e4baf5e81d0fd8 100644 (file)
--- a/gcc/fortran/trans-array.c
+++ b/gcc/fortran/trans-array.c
@@ -6008,9 +6008,8 @@ gfc_conv_expr_descriptor (gfc_se * se, gfc_expr * expr, gfc_ss * ss)
        {
          /* Otherwise make a new one.  */
          parmtype = gfc_get_element_type (TREE_TYPE (desc));
-         parmtype = gfc_get_array_type_bounds (parmtype, loop.dimen,
-                                               loop.codimen, loop.from,
-                                               loop.to, 0,
+         parmtype = gfc_get_array_type_bounds (parmtype, loop.dimen, codim,
+                                               loop.from, loop.to, 0,
                                                GFC_ARRAY_UNKNOWN, false);
          parm = gfc_create_var (parmtype, "parm");
        }