flang/test/Semantics/dosemantics07.f90


1
2
3
4
5
6
7
8
9
10

! RUN: %S/test_errors.sh %s %t %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