diff options
| author | Mikael Morin <mikael.morin@sfr.fr> | 2011-10-07 21:28:55 +0200 |
|---|---|---|
| committer | Mikael Morin <mikael@gcc.gnu.org> | 2011-10-07 19:28:55 +0000 |
| commit | a7525708c6aab59583d3ddb59d75624a8ccd8a8f (patch) | |
| tree | 63a995f5c7de4fcc1fa3521754ee8910a5f58e94 /gcc | |
| parent | 23c3d0f9726912bfa6e423ddb1dba67fb93be343 (diff) | |
| download | gcc-a7525708c6aab59583d3ddb59d75624a8ccd8a8f.zip gcc-a7525708c6aab59583d3ddb59d75624a8ccd8a8f.tar.gz gcc-a7525708c6aab59583d3ddb59d75624a8ccd8a8f.tar.bz2 | |
trans-array.c (gfc_conv_expr_descriptor): Use codim instead of loop.codimen as argument to gfc_get_array_type_bounds.
* trans-array.c (gfc_conv_expr_descriptor): Use codim instead of
loop.codimen as argument to gfc_get_array_type_bounds.
From-SVN: r179677
Diffstat (limited to 'gcc')
| -rw-r--r-- | gcc/fortran/ChangeLog | 5 | ||||
| -rw-r--r-- | gcc/fortran/trans-array.c | 5 |
2 files changed, 7 insertions, 3 deletions
diff --git a/gcc/fortran/ChangeLog b/gcc/fortran/ChangeLog index 9428b51..78f6885 100644 --- a/gcc/fortran/ChangeLog +++ b/gcc/fortran/ChangeLog @@ -1,5 +1,10 @@ 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. * trans-intrinsic.c (trans_this_image, trans_image_index, conv_intrinsic_cobound): Set want_coarray. diff --git a/gcc/fortran/trans-array.c b/gcc/fortran/trans-array.c index 88998de..0f5f29c 100644 --- 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"); } |