diff options
| author | Janus Weil <janus@gcc.gnu.org> | 2018-05-25 08:09:10 +0200 |
|---|---|---|
| committer | Janus Weil <janus@gcc.gnu.org> | 2018-05-25 08:09:10 +0200 |
| commit | 9143aa524cee23faf8d4f11d0a8a7b5393952406 (patch) | |
| tree | 5f54dc37f3d1a928a91c54559c5d1607004b9f9b /gcc/fortran/match.c | |
| parent | 55157d5ed6df9a8eacd0e39c12c97fe7222f1172 (diff) | |
| download | gcc-9143aa524cee23faf8d4f11d0a8a7b5393952406.zip gcc-9143aa524cee23faf8d4f11d0a8a7b5393952406.tar.gz gcc-9143aa524cee23faf8d4f11d0a8a7b5393952406.tar.bz2 | |
re PR fortran/85839 ([F2018] warn for obsolescent features)
2018-05-25 Janus Weil <janus@gcc.gnu.org>
PR fortran/85839
* match.c (gfc_match_block_data): Call gfc_notify_std to warn about
an obsolescent feature in Fortran 2018.
(gfc_match_equivalence): Ditto.
* resolve.c (resolve_common_blocks): Ditto.
(gfc_resolve_forall): Ditto.
* symbol.c (gfc_define_st_label): Ditto.
2018-05-25 Janus Weil <janus@gcc.gnu.org>
PR fortran/85839
* gfortran.dg/f2018_obs.f90: New test case.
From-SVN: r260705
Diffstat (limited to 'gcc/fortran/match.c')
| -rw-r--r-- | gcc/fortran/match.c | 7 |
1 files changed, 7 insertions, 0 deletions
diff --git a/gcc/fortran/match.c b/gcc/fortran/match.c index 8379ff5..1ab0e0f 100644 --- a/gcc/fortran/match.c +++ b/gcc/fortran/match.c @@ -5259,6 +5259,10 @@ gfc_match_block_data (void) gfc_symbol *sym; match m; + if (!gfc_notify_std (GFC_STD_F2018_OBS, "BLOCK DATA construct at %L", + &gfc_current_locus)) + return MATCH_ERROR; + if (gfc_match_eos () == MATCH_YES) { gfc_new_block = NULL; @@ -5575,6 +5579,9 @@ gfc_match_equivalence (void) } } + if (!gfc_notify_std (GFC_STD_F2018_OBS, "EQUIVALENCE statement at %C")) + return MATCH_ERROR; + return MATCH_YES; syntax: |