From fbdeeaac539d9cf635a5d6bf622d166f77e762d5 Mon Sep 17 00:00:00 2001 From: Janus Weil Date: Thu, 4 Apr 2013 21:21:01 +0200 Subject: re PR fortran/40881 ([F03] warn for obsolescent features) 2013-04-04 Janus Weil 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 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 --- gcc/fortran/match.c | 4 ---- 1 file changed, 4 deletions(-) (limited to 'gcc/fortran/match.c') 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 -- cgit v1.1