diff options
| author | burnus <burnus@138bc75d-0d04-0410-961f-82ee72b054a4> | 2012-07-21 09:37:18 +0000 |
|---|---|---|
| committer | burnus <burnus@138bc75d-0d04-0410-961f-82ee72b054a4> | 2012-07-21 09:37:18 +0000 |
| commit | 1dbb233607075e3f7d3427465b814c8c412889e3 (patch) | |
| tree | 51acc0ee2db2acaab52ad21862e076f7b4e1d468 /gcc/fortran | |
| parent | 18b86a11ad93c991e79a5eac0ff34cb42f5c2ecb (diff) | |
| download | gcc-1dbb233607075e3f7d3427465b814c8c412889e3.tar.gz | |
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
Diffstat (limited to 'gcc/fortran')
| -rw-r--r-- | gcc/fortran/ChangeLog | 5 | ||||
| -rw-r--r-- | gcc/fortran/resolve.c | 3 |
2 files changed, 7 insertions, 1 deletions
diff --git a/gcc/fortran/ChangeLog b/gcc/fortran/ChangeLog index 04725e0a6d9..7be7bdb626c 100644 --- 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 7e2d6217adc..370e5cd8d36 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. */ |