com.c (ffecom_sym_transform_): Install FFEINFO_whereGLOBAL symbols in the global...

        * com.c (ffecom_sym_transform_): Install FFEINFO_whereGLOBAL
        symbols in the global binding level.

From-SVN: r67920

diff --git a/gcc/f/ChangeLog b/gcc/f/ChangeLog
index 632cd09a0544383c4fdc1d32cb47bc95ab1fdd4b..e33ce71f78f8ab199be3908f2852407ce8b0b9e0 100644 (file)
--- a/gcc/f/ChangeLog
+++ b/gcc/f/ChangeLog
@@ -1,3 +1,8 @@
+2003-06-13  Richard Henderson  <rth@redhat.com>
+
+        * com.c (ffecom_sym_transform_): Install FFEINFO_whereGLOBAL
+        symbols in the global binding level.
+
 Sun Jun  8 15:42:09 2003  Neil Booth  <neil@daikokuya.co.uk>
 
        * Make-lang.in (F77_OBJS, f77.mostlyclean, f/com.o): Update.

diff --git a/gcc/f/com.c b/gcc/f/com.c
index ce821c755cdd6e16ca3f77becc926a3b65988d32..4de5d6c18ae65fa44a9b8607c1bef085b9cb2bf7 100644 (file)
--- 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)