From: Toon Moene <toon@moene.indiv.nluug.nl>
Date: Wed, 9 Jul 2003 21:12:54 +0000 (+0200)
Subject: re PR fortran/11301 (ICE with -fno-globals)
X-Git-Tag: releases/gcc-3.4.0~5000
X-Git-Url: http://git.ipfire.org/gitweb.cgi?a=commitdiff_plain;h=64f970fe30cf0144a925e1004fc25a7bc18faa45;p=thirdparty%2Fgcc.git

re PR fortran/11301 (ICE with -fno-globals)

2003-07-09  Toon Moene  <toon@moene.indiv.nluug.nl>

	PR Fortran/11301
	* com.c (ffecom_sym_transform_): finish_decl should have
	the same last argument as start_decl.

From-SVN: r69155
---

diff --git a/gcc/f/ChangeLog b/gcc/f/ChangeLog
index 1d4787d91c98..fc48b204915f 100644
--- a/gcc/f/ChangeLog
+++ b/gcc/f/ChangeLog
@@ -1,3 +1,9 @@
+2003-07-09  Toon Moene  <toon@moene.indiv.nluug.nl>
+
+	PR Fortran/11301
+	* com.c (ffecom_sym_transform_): finish_decl should have
+	the same last argument as start_decl.
+
 2003-07-08  Rainer Orth  <ro@TechFak.Uni-Bielefeld.DE>
 
 	* Make-lang.in (f/g77.dvi): Use PWD_COMMAND.
diff --git a/gcc/f/com.c b/gcc/f/com.c
index 4d2860c4dcf5..770daf9e3783 100644
--- a/gcc/f/com.c
+++ b/gcc/f/com.c
@@ -8074,7 +8074,7 @@ ffecom_sym_transform_ (ffesymbol s)
 	  TREE_PUBLIC (t) = 1;
 
 	  t = start_decl (t, ffe_is_globals ());
-	  finish_decl (t, NULL_TREE, TRUE);
+	  finish_decl (t, NULL_TREE, ffe_is_globals ());
 
 	  if ((g != NULL)
 	      && ((ffeglobal_type (g) == FFEGLOBAL_typeSUBR)