diff options
| author | Fritz O. Reese <fritzoreese@gmail.com> | 2016-11-03 16:00:58 +0000 |
|---|---|---|
| committer | Fritz Reese <foreese@gcc.gnu.org> | 2016-11-03 16:00:58 +0000 |
| commit | 35ea947ffabd427908f9fa0b5df56c6fe58176ff (patch) | |
| tree | 4b94c9ccf0d58309cda7b6af4ee09b7212fc57fa /gcc/fortran/decl.c | |
| parent | c0ae959bedcbeae109608c9a13903407bd9b636e (diff) | |
| download | gcc-35ea947ffabd427908f9fa0b5df56c6fe58176ff.zip gcc-35ea947ffabd427908f9fa0b5df56c6fe58176ff.tar.gz gcc-35ea947ffabd427908f9fa0b5df56c6fe58176ff.tar.bz2 | |
Support legacy PARAMETER statements with -std=legacy.
gcc/fortran/
* decl.c (gfc_match_parameter): Allow omitted '()' with -std=legacy.
* parse.c (decode_statement): Match "parameter" before assignments.
* gfortran.texi: Document.
gcc/testsuite/gfortran.dg/
* dec_parameter_1.f: New test.
* dec_parameter_2.f90: Likewise.
* dec_parameter_3.f90: Likewise.
* dec_parameter_4.f90: Likewise.
From-SVN: r241823
Diffstat (limited to 'gcc/fortran/decl.c')
| -rw-r--r-- | gcc/fortran/decl.c | 10 |
1 files changed, 8 insertions, 2 deletions
diff --git a/gcc/fortran/decl.c b/gcc/fortran/decl.c index f18eb41..0120ceb 100644 --- a/gcc/fortran/decl.c +++ b/gcc/fortran/decl.c @@ -7821,10 +7821,16 @@ cleanup: match gfc_match_parameter (void) { + const char *term = " )%t"; match m; if (gfc_match_char ('(') == MATCH_NO) - return MATCH_NO; + { + /* With legacy PARAMETER statements, don't expect a terminating ')'. */ + if (!gfc_notify_std (GFC_STD_LEGACY, "PARAMETER without '()' at %C")) + return MATCH_NO; + term = " %t"; + } for (;;) { @@ -7832,7 +7838,7 @@ gfc_match_parameter (void) if (m != MATCH_YES) break; - if (gfc_match (" )%t") == MATCH_YES) + if (gfc_match (term) == MATCH_YES) break; if (gfc_match_char (',') != MATCH_YES) |