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