1*81d04709SPeter Klausler! RUN: %python %S/test_errors.py %s %flang_fc1 2*81d04709SPeter Klauslerprogram main 3*81d04709SPeter Klausler 4*81d04709SPeter Klausler integer j, k 5*81d04709SPeter Klausler 6*81d04709SPeter Klausler lab1: do j=1,10 7*81d04709SPeter Klausler cycle lab1 8*81d04709SPeter Klausler exit lab1 9*81d04709SPeter Klausler end do lab1 10*81d04709SPeter Klausler 11*81d04709SPeter Klausler lab2: do 2 j=1,10 12*81d04709SPeter Klausler cycle lab2 13*81d04709SPeter Klausler exit lab2 14*81d04709SPeter Klausler 2 end do lab2 15*81d04709SPeter Klausler 16*81d04709SPeter Klausler lab3: do 3 j=1,10 17*81d04709SPeter Klausler cycle lab3 18*81d04709SPeter Klausler exit lab3 19*81d04709SPeter Klausler !ERROR: DO construct name required but missing 20*81d04709SPeter Klausler 3 end do 21*81d04709SPeter Klausler 22*81d04709SPeter Klausler do 4 j=1,10 23*81d04709SPeter Klausler !ERROR: Unexpected DO construct name 'lab4' 24*81d04709SPeter Klausler 4 end do lab4 25*81d04709SPeter Klausler 26*81d04709SPeter Klausler lab5: do 5 j=1,10 27*81d04709SPeter Klausler !ERROR: END DO statement must have the label '5' matching its DO statement 28*81d04709SPeter Klausler 666 end do lab5 29*81d04709SPeter Klauslerend 30