OpenE2K/gcc
2
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

re PR fortran/42051 ([OOP] ICE on array-valued function with CLASS formal argument)

Browse Source 
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
This commit is contained in:
Mikael Morin 2010-07-31 10:27:36 +00:00
parent 8aadc2f3e5
commit 951d634180
3 changed files with 13 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
gcc/fortran/ChangeLog
View File

@ -1,3 +1,11 @@
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.
2010-07-30 Janus Weil <janus@gcc.gnu.org>
Steven G. Kargl <kargl@gcc.gnu.org>

4
gcc/fortran/parse.c
View File

@ -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;

2
gcc/fortran/symbol.c
View File

@ -98,7 +98,7 @@ gfc_namespace *gfc_global_ns_list;
gfc_gsymbol *gfc_gsym_root = NULL;
static gfc_symbol *changed_syms = NULL;
gfc_symbol *changed_syms = NULL;
gfc_dt_list *gfc_derived_types;