diff options
| author | Steven G. Kargl <kargl@gcc.gnu.org> | 2019-06-21 16:57:24 +0000 |
|---|---|---|
| committer | Steven G. Kargl <kargl@gcc.gnu.org> | 2019-06-21 16:57:24 +0000 |
| commit | 69352933301e0f67078fff8404b1eeb5c14d6b60 (patch) | |
| tree | 58bb3033b42cfcef20656edd064fdc2996736334 /gcc/fortran/decl.c | |
| parent | 84338a14985c5f7b064a181180d221be16019978 (diff) | |
| download | gcc-69352933301e0f67078fff8404b1eeb5c14d6b60.zip gcc-69352933301e0f67078fff8404b1eeb5c14d6b60.tar.gz gcc-69352933301e0f67078fff8404b1eeb5c14d6b60.tar.bz2 | |
re PR fortran/51991 (Wrong error message with variables named "SAVE*")
2019-06-21 Steven G. Kargl <kargl@gcc.gnu.org>
PR fortran/51991
* decl.c (gfc_match_save): If SAVE was not seen, return MATCH_NO
instead issuing an error message and returning MATCH_ERROR.
2019-06-21 Steven G. Kargl <kargl@gcc.gnu.org>
PR fortran/51991
gfortran.dg/pr51991.f90
From-SVN: r272556
Diffstat (limited to 'gcc/fortran/decl.c')
| -rw-r--r-- | gcc/fortran/decl.c | 9 |
1 files changed, 7 insertions, 2 deletions
diff --git a/gcc/fortran/decl.c b/gcc/fortran/decl.c index f5517f0..d338a94 100644 --- a/gcc/fortran/decl.c +++ b/gcc/fortran/decl.c @@ -9302,8 +9302,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; } |