OSDN Git Service

2006-04-29 H.J. Lu <hongjiu.lu@intel.com>
authorhjl <hjl@138bc75d-0d04-0410-961f-82ee72b054a4>
Sat, 29 Apr 2006 14:25:42 +0000 (14:25 +0000)
committerhjl <hjl@138bc75d-0d04-0410-961f-82ee72b054a4>
Sat, 29 Apr 2006 14:25:42 +0000 (14:25 +0000)
PR fortran/27351
* trans-array.c (gfc_conv_array_transpose): Move gcc_assert
before gfc_conv_expr_descriptor.

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

gcc/fortran/ChangeLog
gcc/fortran/trans-array.c

index b64b6c7..dcb7393 100644 (file)
@@ -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
index fcd2223..a5042ea 100644 (file)
@@ -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;