resolve.c (resolve_formal_arglist): Put variable declaration before the first assignment.

2012-07-21  Tobias Burnus  <burnus@net-b.de>

        * resolve.c (resolve_formal_arglist): Put variable
        declaration before the first assignment.

From-SVN: r189740

gcc/fortran/ChangeLog

 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.
 

gcc/fortran/resolve.c

@@ -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.  */