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/parse.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/parse.c')
| -rw-r--r-- | gcc/fortran/parse.c | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/gcc/fortran/parse.c b/gcc/fortran/parse.c index 2aa2afc..0ee054a 100644 --- a/gcc/fortran/parse.c +++ b/gcc/fortran/parse.c @@ -352,6 +352,9 @@ decode_statement (void) } gfc_matching_function = false; + /* Legacy parameter statements are ambiguous with assignments so try parameter + first. */ + match ("parameter", gfc_match_parameter, ST_PARAMETER); /* Match statements whose error messages are meant to be overwritten by something better. */ @@ -528,7 +531,6 @@ decode_statement (void) case 'p': match ("print", gfc_match_print, ST_WRITE); - match ("parameter", gfc_match_parameter, ST_PARAMETER); match ("pause", gfc_match_pause, ST_PAUSE); match ("pointer", gfc_match_pointer, ST_ATTR_DECL); if (gfc_match_private (&st) == MATCH_YES) |