| ! RUN: %f18 -funparse-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 |