1 2! RUN: %f18 -funparse-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 8subroutine 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 1650 a(i,j) = b(i,j) + 2.0 1720 continue 1810 continue 19end subroutine sub00 20