+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
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
+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.
+
2013-04-04 Kyrylo Tkachov <kyrylo.tkachov@arm.com>
* lib/target-supports.exp (check_effective_target_arm_v8_neon_hw):
-! { dg-do run }
-! { dg-options "-std=legacy" }
-!
-! Tests the fix for PR31483, in which dummy argument procedures
-! produced an ICE if they had an alternate return.
-!
-! Contributed by Mathias Fröhlich <M.Froehlich@science-computing.de>
-
- SUBROUTINE R (i, *, *)
- INTEGER i
- RETURN i
- END
-
+! { dg-do run }\r
+! { dg-options "-std=gnu" }\r
+!\r
+! Tests the fix for PR31483, in which dummy argument procedures\r
+! produced an ICE if they had an alternate return.\r
+!\r
+! Contributed by Mathias Fröhlich <M.Froehlich@science-computing.de>\r
+\r
+ SUBROUTINE R (i, *, *)\r
+ INTEGER i\r
+ RETURN i\r
+ END\r
+\r
SUBROUTINE PHLOAD (READER, i, res)\r
IMPLICIT NONE\r
- EXTERNAL READER
- integer i
+ EXTERNAL READER\r
+ integer i\r
character(3) res\r
CALL READER (i, *1, *2)\r
- 1 res = "one"
+ 1 res = "one"\r
return\r
- 2 res = "two"
+ 2 res = "two"\r
return\r
- END
-
- EXTERNAL R
- character(3) res\r
- call PHLOAD (R, 1, res)
- if (res .ne. "one") call abort ()
- CALL PHLOAD (R, 2, res)
- if (res .ne. "two") call abort ()
END\r
\r
+ EXTERNAL R\r
+ character(3) res\r
+ call PHLOAD (R, 1, res)\r
+ if (res .ne. "one") call abort ()\r
+ CALL PHLOAD (R, 2, res)\r
+ if (res .ne. "two") call abort ()\r
+ END\r