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

diff --git a/gcc/f/ChangeLog b/gcc/f/ChangeLog
index 895db166a7741d6b87eee47f3bf232007d613f82..1203559edbab4ae462421eb40170314267dd9367 100644 (file)
--- 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 56ad42bf98140d45367884424b1aeb4e6fdf2be8..e9a20532404959ed0d7fbf26810aee1102295ef1 100644 (file)
--- 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)