[fortran-dev] constructor work, part I; updated

[Janne Blomqvist]

2009/12/27 Tobias Schlüter <tobias.schlueter@physik.uni-muenchen.de>:
>
> Hi,
>
> I had a cursory look through your patch for potentially changed semantics
> that may lead to your problems, and I found this:

Similarly,

@@ -1101,18 +1088,7 @@ find_array_element (gfc_constructor *con
       mpz_mul (span, span, tmp);
     }

-  for (nelemen = mpz_get_ui (offset); nelemen > 0; nelemen--)
-    {
-      if (cons)
-	{
-	  if (cons->iterator)
-	    {
-	      cons = NULL;
-	      goto depart;
-	    }
-	  cons = cons->next;
-	}
-    }
+  cons = gfc_constructor_lookup (cons, mpz_get_ui (offset));


-- 
Janne Blomqvist