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