diff options
| author | Janus Weil <janus@gcc.gnu.org> | 2013-04-04 21:21:01 +0200 |
|---|---|---|
| committer | Janus Weil <janus@gcc.gnu.org> | 2013-04-04 21:21:01 +0200 |
| commit | fbdeeaac539d9cf635a5d6bf622d166f77e762d5 (patch) | |
| tree | 0c9fb7f88c1f82b655859b318a75484cc385cb3f /gcc/fortran/primary.c | |
| parent | 3465257612a4b23668d6e6c22404024a5885da0b (diff) | |
| download | gcc-fbdeeaac539d9cf635a5d6bf622d166f77e762d5.zip gcc-fbdeeaac539d9cf635a5d6bf622d166f77e762d5.tar.gz gcc-fbdeeaac539d9cf635a5d6bf622d166f77e762d5.tar.bz2 | |
re PR fortran/40881 ([F03] warn for obsolescent features)
2013-04-04 Janus Weil <janus@gcc.gnu.org>
PR fortran/40881
* match.c (gfc_match_return): Remove standard notification.
* primary.c (gfc_match_actual_arglist): Add standard notification.
2013-04-04 Janus Weil <janus@gcc.gnu.org>
PR fortran/40881
* gfortran.dg/altreturn_1.f90: Add -std=gnu.
* gfortran.dg/altreturn_4.f90: Ditto.
* gfortran.dg/altreturn_3.f90: Replace -std=legacy by -std=gnu.
* gfortran.dg/altreturn_5.f90: Ditto.
* gfortran.dg/altreturn_6.f90: Ditto.
* gfortran.dg/altreturn_7.f90: Ditto.
From-SVN: r197495
Diffstat (limited to 'gcc/fortran/primary.c')
| -rw-r--r-- | gcc/fortran/primary.c | 4 |
1 files changed, 4 insertions, 0 deletions
diff --git a/gcc/fortran/primary.c b/gcc/fortran/primary.c index d149224..6664dd2 100644 --- a/gcc/fortran/primary.c +++ b/gcc/fortran/primary.c @@ -1719,6 +1719,10 @@ gfc_match_actual_arglist (int sub_flag, gfc_actual_arglist **argp) if (m != MATCH_YES) goto cleanup; + if (gfc_notify_std (GFC_STD_F95_OBS, "Alternate-return argument " + "at %C") == FAILURE) + goto cleanup; + tail->label = label; goto next; } |