Commit ff346fdb by Tobias Schlüter Committed by Tobias Schlüter

re PR fortran/18540 (Jumping into blocks gives error rather than warning)

PR fortran/18540
* gfortran.dg/goto_1.f: New.

From-SVN: r110228
parent f0852ed0
2005-01-25 Erik Edelmann <eedelman@gcc.gnu.org> 2006-01-25 Tobias Schlter <tobias.schlueter@physik.uni-muenchen.de>
PR fortran/18540
* gfortran.dg/goto_1.f: New.
2006-01-25 Erik Edelmann <eedelman@gcc.gnu.org>
PR fortran/25716 PR fortran/25716
* gfortran.dg/char_result_11.f90: Make it sensitive to PR * gfortran.dg/char_result_11.f90: Make it sensitive to PR
! { dg-do run }
! { dg-options "-std=legacy" }
! PR 18540
! Verify that old-style cross-block GOTOs work
I = 1
GO TO 2
IF (I .EQ. 0) THEN
2 IF (I .NE. 1) CALL ABORT
I = 0
GOTO 3
ELSE
3 I = 2
END IF
IF (I .NE. 2) CALL ABORT
END
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment