mirror/gcc
2
0
Fork 0
mirror of git://gcc.gnu.org/git/gcc.git synced 2024-12-21 08:03:41 +08:00
Code Issues Packages Projects Releases Wiki Activity

re PR fortran/11301 (ICE with -fno-globals)

Browse Source 
2003-07-05  Toon Moene  <toon@moene.indiv.nluug.nl>

	PR Fortran/11301
	* com.c (ffecom_sym_transform_): Only install
	FFEINFO_whereGLOBAL symbols in the global binding
	level if not -fno-globals.

From-SVN: r68972
This commit is contained in:
Toon Moene 2003-07-05 15:37:39 +02:00 committed by Toon Moene
parent 8b87d3fa24
commit e865267810
2 changed files with 8 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
gcc/f/ChangeLog
View File

@ -1,3 +1,10 @@
2003-07-05 Toon Moene <toon@moene.indiv.nluug.nl>
PR Fortran/11301
* com.c (ffecom_sym_transform_): Only install
FFEINFO_whereGLOBAL symbols in the global binding
level if not -fno-globals.
Wed Jul 2 21:16:02 2003 Neil Booth <neil@daikokuya.co.uk>
* top.c (ffe_init_options): Update prototype.

2
gcc/f/com.c
View File

@ -8078,7 +8078,7 @@ ffecom_sym_transform_ (ffesymbol s)
DECL_EXTERNAL (t) = 1;
TREE_PUBLIC (t) = 1;
t = start_decl (t, TRUE);
t = start_decl (t, ffe_is_globals ());
finish_decl (t, NULL_TREE, TRUE);
if ((g != NULL)