FreeChainXenon/gcc
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

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

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

From-SVN: r110228
This commit is contained in:
Tobias Schlüter 2006-01-25 23:34:17 +01:00 • committed by Tobias Schlüter
parent f0852ed050
commit ff346fdbb1
2 changed files with 21 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

7
gcc/testsuite/ChangeLog
View file

@ -1,4 +1,9 @@
2005-01-25 Erik Edelmann <eedelman@gcc.gnu.org>
2006-01-25 Tobias Schlüter <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
* gfortran.dg/char_result_11.f90: Make it sensitive to PR

15
gcc/testsuite/gfortran.dg/goto_1.f Normal file
View file

@ -0,0 +1,15 @@
! { 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