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 | |
| 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')
| -rw-r--r-- | gcc/fortran/ChangeLog | 6 | ||||
| -rw-r--r-- | gcc/fortran/match.c | 4 | ||||
| -rw-r--r-- | gcc/fortran/primary.c | 4 |
3 files changed, 10 insertions, 4 deletions
diff --git a/gcc/fortran/ChangeLog b/gcc/fortran/ChangeLog index c42d02f..6692350 100644 --- a/gcc/fortran/ChangeLog +++ b/gcc/fortran/ChangeLog @@ -1,3 +1,9 @@ +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 Tobias Burnus <burnus@net-b.de> PR fortran/50269 diff --git a/gcc/fortran/match.c b/gcc/fortran/match.c index d75cf1c..be8740c 100644 --- a/gcc/fortran/match.c +++ b/gcc/fortran/match.c @@ -4040,10 +4040,6 @@ gfc_match_return (void) goto cleanup; } - if (gfc_notify_std (GFC_STD_F95_OBS, "Alternate RETURN " - "at %C") == FAILURE) - return MATCH_ERROR; - if (gfc_current_form == FORM_FREE) { /* The following are valid, so we can't require a blank after the 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; } |