xref: /llvm-project/flang/test/Semantics/dosemantics14.f90 (revision 81d04709f86968431ecab1df12a17279d057daa9)
1*81d04709SPeter Klausler! RUN: %python %S/test_errors.py %s %flang_fc1
2*81d04709SPeter Klauslersubroutine bad1
3*81d04709SPeter Klausler  lab1: do 1 j=1,10
4*81d04709SPeter Klausler  1 continue
5*81d04709SPeter Klausler!ERROR: expected 'END DO'
6*81d04709SPeter Klauslerend
7*81d04709SPeter Klausler
8*81d04709SPeter Klauslersubroutine bad2
9*81d04709SPeter Klausler  lab2: do 2 j=1,10
10*81d04709SPeter Klausler  2 k = j
11*81d04709SPeter Klausler!ERROR: expected 'END DO'
12*81d04709SPeter Klauslerend
13