From 64f970fe30cf0144a925e1004fc25a7bc18faa45 Mon Sep 17 00:00:00 2001 From: Toon Moene Date: Wed, 9 Jul 2003 23:12:54 +0200 Subject: [PATCH] re PR fortran/11301 (ICE with -fno-globals) 2003-07-09 Toon Moene PR Fortran/11301 * com.c (ffecom_sym_transform_): finish_decl should have the same last argument as start_decl. From-SVN: r69155 --- gcc/f/ChangeLog | 6 ++++++ gcc/f/com.c | 2 +- 2 files changed, 7 insertions(+), 1 deletion(-) diff --git a/gcc/f/ChangeLog b/gcc/f/ChangeLog index 1d4787d91c9..fc48b204915 100644 --- a/gcc/f/ChangeLog +++ b/gcc/f/ChangeLog @@ -1,3 +1,9 @@ +2003-07-09 Toon Moene + + PR Fortran/11301 + * com.c (ffecom_sym_transform_): finish_decl should have + the same last argument as start_decl. + 2003-07-08 Rainer Orth * Make-lang.in (f/g77.dvi): Use PWD_COMMAND. diff --git a/gcc/f/com.c b/gcc/f/com.c index 4d2860c4dcf..770daf9e378 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) -- 2.30.2