! RUN: %python %S/test_errors.py %s %flang_fc1 | |
program main | |
integer j, k | |
lab1: do j=1,10 | |
cycle lab1 | |
exit lab1 | |
end do lab1 | |
lab2: do 2 j=1,10 | |
cycle lab2 | |
exit lab2 | |
2 end do lab2 | |
lab3: do 3 j=1,10 | |
cycle lab3 | |
exit lab3 | |
!ERROR: DO construct name required but missing | |
3 end do | |
do 4 j=1,10 | |
!ERROR: Unexpected DO construct name 'lab4' | |
4 end do lab4 | |
lab5: do 5 j=1,10 | |
!ERROR: END DO statement must have the label '5' matching its DO statement | |
666 end do lab5 | |
end |