From 6220bf437fdafee2250024aacff0a37e33ebd96b Mon Sep 17 00:00:00 2001 From: Tobias Burnus Date: Sat, 21 Jul 2012 11:37:18 +0200 Subject: [PATCH] resolve.c (resolve_formal_arglist): Put variable declaration before the first assignment. 2012-07-21 Tobias Burnus * resolve.c (resolve_formal_arglist): Put variable declaration before the first assignment. From-SVN: r189740 --- gcc/fortran/ChangeLog | 5 +++++ gcc/fortran/resolve.c | 3 ++- 2 files changed, 7 insertions(+), 1 deletion(-) 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 + + * resolve.c (resolve_formal_arglist): Put variable + declaration before the first assignment. + 2012-07-21 Tobias Burnus * 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. */ -- 2.39.5