39 lines · plain
1! RUN: %python %S/test_errors.py %s %flang_fc12! C1134 A CYCLE statement must be within a DO construct3!4! C1166 An EXIT statement must be within a DO construct5 6subroutine s1()7! this one's OK8 do i = 1,109 cycle10 end do11 12! this one's OK13 do i = 1,1014 exit15 end do16 17! all of these are OK18 outer: do i = 1,1019 cycle20 inner: do j = 1,1021 cycle22 end do inner23 cycle24 end do outer25 26!ERROR: No matching DO construct for CYCLE statement27 cycle28 29!ERROR: No matching construct for EXIT statement30 exit31 32!ERROR: No matching DO construct for CYCLE statement33 if(.true.) cycle34 35!ERROR: No matching construct for EXIT statement36 if(.true.) exit37 38end subroutine s139