diff options
| author | Toon Moene <toon@moene.indiv.nluug.nl> | 2003-07-05 15:37:39 +0200 |
|---|---|---|
| committer | Toon Moene <toon@gcc.gnu.org> | 2003-07-05 13:37:39 +0000 |
| commit | e865267810dd2f02d40f4e30307611cf51df344f (patch) | |
| tree | f3ddbd7274bfe816e5ba05282ad00d7b3eb918e9 /gcc/f | |
| parent | 8b87d3fa24ef1e70d2ef0a365ba40324a0e7fb59 (diff) | |
| download | gcc-e865267810dd2f02d40f4e30307611cf51df344f.zip gcc-e865267810dd2f02d40f4e30307611cf51df344f.tar.gz gcc-e865267810dd2f02d40f4e30307611cf51df344f.tar.bz2 | |
re PR fortran/11301 (ICE with -fno-globals)
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
Diffstat (limited to 'gcc/f')
| -rw-r--r-- | gcc/f/ChangeLog | 7 | ||||
| -rw-r--r-- | gcc/f/com.c | 2 |
2 files changed, 8 insertions, 1 deletions
diff --git a/gcc/f/ChangeLog b/gcc/f/ChangeLog index 895db16..1203559 100644 --- a/gcc/f/ChangeLog +++ b/gcc/f/ChangeLog @@ -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. diff --git a/gcc/f/com.c b/gcc/f/com.c index 56ad42b..e9a2053 100644 --- a/gcc/f/com.c +++ b/gcc/f/com.c @@ -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) |