flang/test/Semantics/dosemantics07.f90

   1 ! RUN: %python %S/test_errors.py %s %flang_fc1
   2 !C1132
   3 ! If the do-stmt is a nonlabel-do-stmt, the corresponding end-do shall be an
   4 ! end-do-stmt.
   5 subroutine s1()
   6   do while (.true.)
   7     print *, "Hello"
   8   continue
   9 !ERROR: expected 'END DO'
  10 end subroutine s1