diff options
Diffstat (limited to 'gcc-4.9/gcc/testsuite/gfortran.dg/end_block_label_1.f90')
-rw-r--r-- | gcc-4.9/gcc/testsuite/gfortran.dg/end_block_label_1.f90 | 14 |
1 files changed, 14 insertions, 0 deletions
diff --git a/gcc-4.9/gcc/testsuite/gfortran.dg/end_block_label_1.f90 b/gcc-4.9/gcc/testsuite/gfortran.dg/end_block_label_1.f90 new file mode 100644 index 000000000..feb12fcf8 --- /dev/null +++ b/gcc-4.9/gcc/testsuite/gfortran.dg/end_block_label_1.f90 @@ -0,0 +1,14 @@ +! { dg-do compile } +! +! PR fortran/50071 +! A label in an END BLOCK statement was ignored; as a result, a GOTO +! to such a label was rejected. +! +! Contributed by Tobias Burnus <burnus@net-b.de> + + block + goto 1 + print *, 'Hello' +1 end block +end + |