20 lines · plain
1 2! RUN: %flang_fc1 -fdebug-unparse-with-symbols %s 2>&1 | FileCheck %s3! CHECK: branch into loop body from outside4! CHECK: do 10 i = 1, m5! CHECK: the loop branched into6! CHECK: do 20 j = 1, n7 8subroutine sub00(a,b,n,m)9 real a(n,m)10 real b(n,m)11 if (n .ne. m) then12 goto 5013 end if14 do 10 i = 1, m15 do 20 j = 1, n1650 a(i,j) = b(i,j) + 2.01720 continue1810 continue19end subroutine sub0020