diff options
| author | Fritz Reese <fritzoreese@gmail.com> | 2016-10-25 15:27:39 +0000 |
|---|---|---|
| committer | Fritz Reese <foreese@gcc.gnu.org> | 2016-10-25 15:27:39 +0000 |
| commit | cd714e1e56c53aeda0fe365a1daebf217731b42a (patch) | |
| tree | ea11f6a2086413d833a90fb2aec1ec1d5196a654 /gcc/fortran/primary.c | |
| parent | 90051c26da7abd0999ce0afdd9471e354009b861 (diff) | |
| download | gcc-cd714e1e56c53aeda0fe365a1daebf217731b42a.zip gcc-cd714e1e56c53aeda0fe365a1daebf217731b42a.tar.gz gcc-cd714e1e56c53aeda0fe365a1daebf217731b42a.tar.bz2 | |
Enable %LOC as an rvalue with -std=legacy.
gcc/fortran/
* primary.c (gfc_match_rvalue): Match %LOC as LOC with -std=legacy.
* gfortran.texi: Document.
gcc/testsuite/gfortran.dg/
* dec_loc_rval_1.f90: New test.
* dec_loc_rval_2.f90: New test.
* dec_loc_rval_3.f90: New test.
From-SVN: r241519
Diffstat (limited to 'gcc/fortran/primary.c')
| -rw-r--r-- | gcc/fortran/primary.c | 17 |
1 files changed, 14 insertions, 3 deletions
diff --git a/gcc/fortran/primary.c b/gcc/fortran/primary.c index 3803b88..bcbaeaa 100644 --- a/gcc/fortran/primary.c +++ b/gcc/fortran/primary.c @@ -2971,9 +2971,20 @@ gfc_match_rvalue (gfc_expr **result) bool implicit_char; gfc_ref *ref; - m = gfc_match_name (name); - if (m != MATCH_YES) - return m; + m = gfc_match ("%%loc"); + if (m == MATCH_YES) + { + if (!gfc_notify_std (GFC_STD_LEGACY, "%%LOC() as an rvalue at %C")) + return MATCH_ERROR; + strncpy (name, "loc", 4); + } + + else + { + m = gfc_match_name (name); + if (m != MATCH_YES) + return m; + } /* Check if the symbol exists. */ if (gfc_find_sym_tree (name, NULL, 1, &symtree)) |