flang/test/Semantics/label04.f90

   1
   2 ! RUN: %flang_fc1 -fdebug-unparse-with-symbols %s 2>&1 | FileCheck %s
   3 ! CHECK: branch into loop body from outside
   4 ! CHECK: do 10 i = 1, m
   5 ! CHECK: the loop branched into
   6 ! CHECK: do 20 j = 1, n
   7
   8 subroutine sub00(a,b,n,m)
   9   real a(n,m)
  10   real b(n,m)
  11   if (n .ne. m) then
  12      goto 50
  13   end if
  14   do 10 i = 1, m
  15      do 20 j = 1, n
  16 50      a(i,j) = b(i,j) + 2.0
  17 20      continue
  18 10      continue
  19 end subroutine sub00