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

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

From-SVN: r110228

diff --git a/gcc/testsuite/ChangeLog b/gcc/testsuite/ChangeLog
index 2ef9cc8..28d3297 100644 (file)
--- a/gcc/testsuite/ChangeLog
+++ b/gcc/testsuite/ChangeLog
@@ -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

diff --git a/gcc/testsuite/gfortran.dg/goto_1.f b/gcc/testsuite/gfortran.dg/goto_1.f
new file mode 100644 (file)
index 0000000..11b7c53
--- /dev/null
+++ b/gcc/testsuite/gfortran.dg/goto_1.f
@@ -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