diff options
| author | Mikael Morin <mikael@gcc.gnu.org> | 2010-07-31 10:27:36 +0000 |
|---|---|---|
| committer | Mikael Morin <mikael@gcc.gnu.org> | 2010-07-31 10:27:36 +0000 |
| commit | 951d634180a28c7c29eabedf1dc2348835708b5e (patch) | |
| tree | b50f122afa9060807026a341587a53113334fbe9 /gcc/fortran/parse.c | |
| parent | 8aadc2f3e5d25589294430a7eb66edabcbced1ce (diff) | |
| download | gcc-951d634180a28c7c29eabedf1dc2348835708b5e.zip gcc-951d634180a28c7c29eabedf1dc2348835708b5e.tar.gz gcc-951d634180a28c7c29eabedf1dc2348835708b5e.tar.bz2 | |
re PR fortran/42051 ([OOP] ICE on array-valued function with CLASS formal argument)
2010-07-31 Mikael Morin <mikael@gcc.gnu.org>
PR fortran/42051
PR fortran/44064
* symbol.c (changed_syms): Made non-static.
* parse.c (changed_syms): Declare new external.
(next_statement): Assert changed_syms is NULL at the beginning.
From-SVN: r162776
Diffstat (limited to 'gcc/fortran/parse.c')
| -rw-r--r-- | gcc/fortran/parse.c | 4 |
1 files changed, 4 insertions, 0 deletions
diff --git a/gcc/fortran/parse.c b/gcc/fortran/parse.c index 989d644..94440e9 100644 --- a/gcc/fortran/parse.c +++ b/gcc/fortran/parse.c @@ -879,6 +879,7 @@ blank_line: return ST_NONE; } +extern gfc_symbol *changed_syms; /* Return the next non-ST_NONE statement to the caller. We also worry about including files and the ends of include files at this stage. */ @@ -889,6 +890,9 @@ next_statement (void) gfc_statement st; locus old_locus; + /* We start with a clean state. */ + gcc_assert (changed_syms == NULL); + gfc_new_block = NULL; gfc_current_ns->old_cl_list = gfc_current_ns->cl_list; |