From e865267810dd2f02d40f4e30307611cf51df344f Mon Sep 17 00:00:00 2001 From: Toon Moene Date: Sat, 5 Jul 2003 15:37:39 +0200 Subject: [PATCH] re PR fortran/11301 (ICE with -fno-globals) 2003-07-05 Toon Moene 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 --- gcc/f/ChangeLog | 7 +++++++ gcc/f/com.c | 2 +- 2 files changed, 8 insertions(+), 1 deletion(-) 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 + + 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 * 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) -- 2.7.4