diff options
| -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) |