| ! RUN: %S/test_any.sh %s %t %f18 |
| ! negative test -- invalid labels, out of range |
| |
| ! EXEC: ${F18} -funparse-with-symbols %s 2>&1 | ${FileCheck} %s |
| ! CHECK: CYCLE construct-name is not in scope |
| ! CHECK: IF construct name unexpected |
| ! CHECK: unnamed IF statement |
| ! CHECK: DO construct name mismatch |
| ! CHECK: should be |
| |
| subroutine sub00(a,b,n,m) |
| real a(n,m) |
| real b(n,m) |
| labelone: do i = 1, m |
| labeltwo: do j = 1, n |
| 50 a(i,j) = b(i,j) + 2.0 |
| if (n .eq. m) then |
| cycle label3 |
| end if label3 |
| 60 end do labeltwo |
| end do label1 |
| end subroutine sub00 |