diff options
Diffstat (limited to 'gcc/testsuite/gfortran.dg/do_4.f')
| -rw-r--r-- | gcc/testsuite/gfortran.dg/do_4.f | 9 |
1 files changed, 9 insertions, 0 deletions
diff --git a/gcc/testsuite/gfortran.dg/do_4.f b/gcc/testsuite/gfortran.dg/do_4.f new file mode 100644 index 000000000..6d688a0a3 --- /dev/null +++ b/gcc/testsuite/gfortran.dg/do_4.f @@ -0,0 +1,9 @@ +! { dg-do compile } +! Verify that the loop not terminated on an action-stmt is correctly rejected + do10i=1,20 + if(i.eq.5)then + goto 10 + 10 endif ! { dg-error "is within another block" } + end +! { dg-excess-errors "" } + |