From: Tobias Burnus <burnus@net-b.de>
Date: Sat, 21 Jul 2012 09:37:18 +0000 (+0200)
Subject: resolve.c (resolve_formal_arglist): Put variable declaration before the first assignment.
X-Git-Tag: releases/gcc-4.8.0~4353
X-Git-Url: http://git.ipfire.org/?a=commitdiff_plain;h=6220bf437fdafee2250024aacff0a37e33ebd96b;p=thirdparty%2Fgcc.git

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 04725e0a6d9e..7be7bdb626c8 100644
--- 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 7e2d6217adc7..370e5cd8d362 100644
--- 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.  */