! RUN: %flang_fc1 -fdebug-unparse-with-symbols %s 2>&1 | FileCheck %s | |
! CHECK: branch into loop body from outside | |
! CHECK: do 10 i = 1, m | |
! CHECK: the loop branched into | |
! CHECK: do 20 j = 1, n | |
subroutine sub00(a,b,n,m) | |
real a(n,m) | |
real b(n,m) | |
if (n .ne. m) then | |
goto 50 | |
end if | |
do 10 i = 1, m | |
do 20 j = 1, n | |
50 a(i,j) = b(i,j) + 2.0 | |
20 continue | |
10 continue | |
end subroutine sub00 |