19 lines · plain
1! RUN: %python %S/test_errors.py %s %flang_fc1 -Werror2program main3 if (.true.) then4 do j = 1, 25 goto 1 ! ok; used to cause looping in label resolution6 end do7 else8 goto 1 ! ok91 end if10 if (.true.) then11 do j = 1, 212 !WARNING: Label '1' is in a construct that should not be used as a branch target here [-Wbranch-into-construct]13 goto 114 end do15 end if16 !WARNING: Label '1' is in a construct that should not be used as a branch target here [-Wbranch-into-construct]17 goto 118end19