16 lines · plain
1! RUN: not %flang_fc1 -fdebug-unparse-with-symbols %s 2>&1 | FileCheck %s2! CHECK: Label '30' is not a branch target3! CHECK: Control flow use of '30'4! CHECK: warning: Label '10' is in a construct that should not be used as a branch target here5! CHECK: Label '20' was not found6! CHECK: Label '60' was not found7 8subroutine sub00(n,m)930 format (i6,f6.2)10 if (n .eq. m) then1110 print *,"equal"12 end if13 call sub01(n,*10,*20,*30)14 write (*,60) n, m15end subroutine sub0016