diff options
Diffstat (limited to 'gcc')
| -rw-r--r-- | gcc/fortran/ChangeLog | 6 | ||||
| -rw-r--r-- | gcc/fortran/trans-array.c | 4 |
2 files changed, 8 insertions, 2 deletions
diff --git a/gcc/fortran/ChangeLog b/gcc/fortran/ChangeLog index b64b6c7..dcb7393 100644 --- a/gcc/fortran/ChangeLog +++ b/gcc/fortran/ChangeLog @@ -1,3 +1,9 @@ +2006-04-29 H.J. Lu <hongjiu.lu@intel.com> + + PR fortran/27351 + * trans-array.c (gfc_conv_array_transpose): Move gcc_assert + before gfc_conv_expr_descriptor. + 2006-04-23 Paul Thomas <pault@gcc.gnu.org> PR fortran/25099 diff --git a/gcc/fortran/trans-array.c b/gcc/fortran/trans-array.c index fcd2223..a5042ea 100644 --- a/gcc/fortran/trans-array.c +++ b/gcc/fortran/trans-array.c @@ -702,6 +702,8 @@ gfc_conv_array_transpose (gfc_se * se, gfc_expr * expr) src_info = &src_ss->data.info; dest_info = &dest_ss->data.info; + gcc_assert (dest_info->dimen == 2); + gcc_assert (src_info->dimen == 2); /* Get a descriptor for EXPR. */ gfc_init_se (&src_se, NULL); @@ -722,8 +724,6 @@ gfc_conv_array_transpose (gfc_se * se, gfc_expr * expr) /* Copy the dimension information, renumbering dimension 1 to 0 and 0 to 1. */ - gcc_assert (dest_info->dimen == 2); - gcc_assert (src_info->dimen == 2); for (n = 0; n < 2; n++) { dest_info->delta[n] = gfc_index_zero_node; |