OSDN Git Service

2008-03-15 Jerry DeLisle <jvdelisle@gcc.gnu.org>
authorjvdelisle <jvdelisle@138bc75d-0d04-0410-961f-82ee72b054a4>
Sat, 15 Mar 2008 16:45:12 +0000 (16:45 +0000)
committerjvdelisle <jvdelisle@138bc75d-0d04-0410-961f-82ee72b054a4>
Sat, 15 Mar 2008 16:45:12 +0000 (16:45 +0000)
PR fortran/35184
* trans-array.c (gfc_conv_array_index_offset): Remove unnecessary
assert.

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

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

index 211453e..3757220 100644 (file)
@@ -1,3 +1,9 @@
+2008-03-15  Jerry DeLisle  <jvdelisle@gcc.gnu.org>
+
+       PR fortran/35184
+       * trans-array.c (gfc_conv_array_index_offset): Remove unnecessary
+       assert.
+
 2008-03-15  Daniel Franke  <franke.daniel@gmail.com>
 
        PR fortran/35584
index 542e22f..30b2a1c 100644 (file)
@@ -2209,7 +2209,6 @@ gfc_conv_array_index_offset (gfc_se * se, gfc_ss_info * info, int dim, int i,
       switch (ar->dimen_type[dim])
        {
        case DIMEN_ELEMENT:
-         gcc_assert (i == -1);
          /* Elemental dimension.  */
          gcc_assert (info->subscript[dim]
                      && info->subscript[dim]->type == GFC_SS_SCALAR);