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

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

git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@189740 138bc75d-0d04-0410-961f-82ee72b054a4

diff --git a/gcc/fortran/ChangeLog b/gcc/fortran/ChangeLog
index 04725e0..7be7bdb 100644 (file)
--- a/gcc/fortran/ChangeLog
+++ b/gcc/fortran/ChangeLog
@@ -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.
 

diff --git a/gcc/fortran/resolve.c b/gcc/fortran/resolve.c
index 7e2d621..370e5cd 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.  */