196d229c9SAndrzej Warzynski! RUN: not %flang_fc1 -fdebug-unparse-with-symbols %s 2>&1 | FileCheck %s 2455ed8deSpeter klausler! CHECK: Label '30' is not a branch target 3455ed8deSpeter klausler! CHECK: Control flow use of '30' 4*ee9c9170SPeter Klausler! CHECK: warning: Label '10' is in a construct that should not be used as a branch target here 5455ed8deSpeter klausler! CHECK: Label '20' was not found 6455ed8deSpeter klausler! CHECK: Label '60' was not found 764ab3302SCarolineConcatto 864ab3302SCarolineConcattosubroutine sub00(n,m) 964ab3302SCarolineConcatto30 format (i6,f6.2) 1064ab3302SCarolineConcatto if (n .eq. m) then 1164ab3302SCarolineConcatto10 print *,"equal" 1264ab3302SCarolineConcatto end if 1364ab3302SCarolineConcatto call sub01(n,*10,*20,*30) 1464ab3302SCarolineConcatto write (*,60) n, m 1564ab3302SCarolineConcattoend subroutine sub00 16