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

diff --git a/gcc/fortran/ChangeLog b/gcc/fortran/ChangeLog
index 04725e0a6d9e5242b6e62e376b7d6314c468ca32..7be7bdb626c850fc79747299192752ab9e6683b6 100644 (file)
--- a/gcc/fortran/ChangeLog
+++ b/gcc/fortran/ChangeLog
@@ -1,3 +1,8 @@
+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

diff --git a/gcc/fortran/resolve.c b/gcc/fortran/resolve.c
index 7e2d6217adc7a0a7dc19d45b73b34fb80589c913..370e5cd8d36283a1d9e4015a537e47750572c9db 100644 (file)
--- a/gcc/fortran/resolve.c
+++ b/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.  */