30 lines · plain
1! RUN: %python %S/test_errors.py %s %flang_fc12program main3 4 integer j, k5 6 lab1: do j=1,107 cycle lab18 exit lab19 end do lab110 11 lab2: do 2 j=1,1012 cycle lab213 exit lab214 2 end do lab215 16 lab3: do 3 j=1,1017 cycle lab318 exit lab319 !ERROR: DO construct name required but missing20 3 end do21 22 do 4 j=1,1023 !ERROR: Unexpected DO construct name 'lab4'24 4 end do lab425 26 lab5: do 5 j=1,1027 !ERROR: END DO statement must have the label '5' matching its DO statement28 666 end do lab529end30