2012-07-21 Tobias Burnus <burnus@net-b.de>
* resolve.c (resolve_formal_arglist): Put variable
declaration before the first assignment.
From-SVN: r189740
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.
for (f = proc->formal; f; f = f->next)
{
- sym = f->sym;
gfc_array_spec *as;
+ sym = f->sym;
+
if (sym == NULL)
{
/* Alternate return placeholder. */