re PR fortran/31610 (ICE with transfer, merge in gfc_conv_expr_descriptor)

2008-01-26  Jerry DeLisle  <jvdelisle@gcc.gnu.org>

	PR fortran/31610
	* trans-array.c (gfc_trans_create_temp_array): Remove call to
	gcc_assert (integer_zerop (loop->from[n])).

From-SVN: r131873

diff --git a/gcc/fortran/ChangeLog b/gcc/fortran/ChangeLog
index 6860244a8187d414769540d3124dcac7db171fc2..0c8f4a236ca04544d702faf76350818165443998 100644 (file)
--- a/gcc/fortran/ChangeLog
+++ b/gcc/fortran/ChangeLog
@@ -1,3 +1,9 @@
+2008-01-26  Jerry DeLisle  <jvdelisle@gcc.gnu.org>
+
+       PR fortran/31610
+       * trans-array.c (gfc_trans_create_temp_array): Remove call to
+       gcc_assert (integer_zerop (loop->from[n])).
+
 2008-01-25  Daniel Franke  <franke.daniel@gmail.com>
 
        PR fortran/34661

diff --git a/gcc/fortran/trans-array.c b/gcc/fortran/trans-array.c
index f9c76190001902ddde091bc536b0f60733867022..41f01b848f271b99e8f6a54f0ade55e0921aae1c 100644 (file)
--- a/gcc/fortran/trans-array.c
+++ b/gcc/fortran/trans-array.c
@@ -588,9 +588,9 @@ gfc_trans_create_temp_array (stmtblock_t * pre, stmtblock_t * post,
   for (dim = 0; dim < info->dimen; dim++)
     {
       n = loop->order[dim];
-      if (n < loop->temp_dim)
-       gcc_assert (integer_zerop (loop->from[n]));
-      else
+      /* TODO: Investigate why "if (n < loop->temp_dim)
+        gcc_assert (integer_zerop (loop->from[n]));" fails here.  */
+      if (n >= loop->temp_dim)
        {
          /* Callee allocated arrays may not have a known bound yet.  */
           if (loop->to[n])