This is the mail archive of the
gcc-bugs@gcc.gnu.org
mailing list for the GCC project.
[Bug fortran/51991] Wrong error message with variables named "SAVE*"
- From: "kargl at gcc dot gnu.org" <gcc-bugzilla at gcc dot gnu dot org>
- To: gcc-bugs at gcc dot gnu dot org
- Date: Wed, 25 Jan 2012 16:16:30 +0000
- Subject: [Bug fortran/51991] Wrong error message with variables named "SAVE*"
- Auto-submitted: auto-generated
- References: <bug-51991-4@http.gcc.gnu.org/bugzilla/>
http://gcc.gnu.org/bugzilla/show_bug.cgi?id=51991
kargl at gcc dot gnu.org changed:
What |Removed |Added
----------------------------------------------------------------------------
CC| |kargl at gcc dot gnu.org
--- Comment #9 from kargl at gcc dot gnu.org 2012-01-25 16:16:30 UTC ---
Index: decl.c
===================================================================
--- decl.c (revision 183295)
+++ decl.c (working copy)
@@ -6997,8 +6997,13 @@ gfc_match_save (void)
return MATCH_YES;
syntax:
- gfc_error ("Syntax error in SAVE statement at %C");
- return MATCH_ERROR;
+ if (gfc_current_ns->seen_save)
+ {
+ gfc_error ("Syntax error in SAVE statement at %C");
+ return MATCH_ERROR;
+ }
+ else
+ return MATCH_NO;
}