Comments
Patch
===================================================================
@@ -257,9 +257,10 @@ resolve_formal_arglist (gfc_symbol *proc)
for (f = proc->formal; f; f = f->next)
{
- sym = f->sym;
gfc_array_spec *as;
+ sym = f->sym;
+
if (sym == NULL)
{
/* Alternate return placeholder. */
===================================================================
@@ -1,5 +1,10 @@
2012-07-21 Tobias Burnus <burnus@net-b.de>
+ * resolve.c (resolve_formal_arglist): Put variable
+ declaration before the first assignment.
+
+2012-07-21 Tobias Burnus <burnus@net-b.de>
+
* trans-expr.c (gfc_conv_derived_to_class): Fix argument passed
to class_array_data_assign.