25 lines · plain
1! RUN: not %flang_fc1 -fdebug-unparse-with-symbols %s 2>&1 | FileCheck %s2! CHECK: warning: Label '10' is in a construct that should not be used as a branch target here3! CHECK: Label '20' was not found4! CHECK: Label '30' is not a branch target5! CHECK: Control flow use of '30'6! CHECK: warning: Label '40' is in a construct that should not be used as a branch target here7! CHECK: warning: Label '50' is in a construct that should not be used as a branch target here8 9subroutine sub00(n)10 GOTO (10,20,30) n11 if (n .eq. 1) then1210 print *, "xyz"13 end if1430 FORMAT (1x,i6)15end subroutine sub0016 17subroutine sub01(n)18 real n19 GOTO (40,50,60) n20 if (n .eq. 1) then2140 print *, "xyz"2250 end if2360 continue24end subroutine sub0125