flang/test/Semantics/label07.f90

   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
   8 subroutine sub00(n,m)
   9 30 format (i6,f6.2)
  10   if (n .eq. m) then
  11 10   print *,"equal"
  12   end if
  13   call sub01(n,*10,*20,*30)
  14   write (*,60) n, m
  15 end subroutine sub00