1! RUN: not %flang_fc1 -fdebug-unparse-with-symbols %s 2>&1 | FileCheck %s 2! CHECK: Label '30' is not a branch target 3! CHECK: Control flow use of '30' 4! CHECK: warning: Label '10' is in a construct that should not be used as a branch target here 5! CHECK: Label '20' was not found 6! CHECK: Label '60' was not found 7 8subroutine sub00(n,m) 930 format (i6,f6.2) 10 if (n .eq. m) then 1110 print *,"equal" 12 end if 13 call sub01(n,*10,*20,*30) 14 write (*,60) n, m 15end subroutine sub00 16