30 lines
513 B
Fortran
30 lines
513 B
Fortran
|
! 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
|