11 lines
258 B
Fortran
11 lines
258 B
Fortran
|
! RUN: %python %S/test_errors.py %s %flang_fc1
|
||
|
|
!C1132
|
||
|
|
! If the do-stmt is a nonlabel-do-stmt, the corresponding end-do shall be an
|
||
|
|
! end-do-stmt.
|
||
|
|
subroutine s1()
|
||
|
|
do while (.true.)
|
||
|
|
print *, "Hello"
|
||
|
|
continue
|
||
|
|
!ERROR: expected 'END DO'
|
||
|
|
end subroutine s1
|