From: Toon Moene <toon@moene.indiv.nluug.nl>
Date: Sat, 5 Jul 2003 13:37:39 +0000 (+0200)
Subject: re PR fortran/11301 (ICE with -fno-globals)
X-Git-Url: https://git.libre-soc.org/?a=commitdiff_plain;h=e865267810dd2f02d40f4e30307611cf51df344f;p=gcc.git

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 895db166a77..1203559edba 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 56ad42bf981..e9a20532404 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)