From eb7f48f94bed260eadb2f6edaadacb825c31f1b8 Mon Sep 17 00:00:00 2001 From: Richard Henderson Date: Fri, 13 Jun 2003 16:28:49 -0700 Subject: [PATCH] com.c (ffecom_sym_transform_): Install FFEINFO_whereGLOBAL symbols in the global binding level. * com.c (ffecom_sym_transform_): Install FFEINFO_whereGLOBAL symbols in the global binding level. From-SVN: r67920 --- gcc/f/ChangeLog | 5 +++++ gcc/f/com.c | 4 ++-- 2 files changed, 7 insertions(+), 2 deletions(-) diff --git a/gcc/f/ChangeLog b/gcc/f/ChangeLog index 632cd09..e33ce71 100644 --- a/gcc/f/ChangeLog +++ b/gcc/f/ChangeLog @@ -1,3 +1,8 @@ +2003-06-13 Richard Henderson + + * com.c (ffecom_sym_transform_): Install FFEINFO_whereGLOBAL + symbols in the global binding level. + Sun Jun 8 15:42:09 2003 Neil Booth * Make-lang.in (F77_OBJS, f77.mostlyclean, f/com.o): Update. diff --git a/gcc/f/com.c b/gcc/f/com.c index ce821c7..4de5d6c 100644 --- a/gcc/f/com.c +++ b/gcc/f/com.c @@ -8078,8 +8078,8 @@ ffecom_sym_transform_ (ffesymbol s) DECL_EXTERNAL (t) = 1; TREE_PUBLIC (t) = 1; - t = start_decl (t, FALSE); - finish_decl (t, NULL_TREE, FALSE); + t = start_decl (t, TRUE); + finish_decl (t, NULL_TREE, TRUE); if ((g != NULL) && ((ffeglobal_type (g) == FFEGLOBAL_typeSUBR) -- 2.7.4