1 2! RUN: not %f18 -funparse-with-symbols %s 2>&1 | FileCheck %s 3! CHECK: CYCLE construct-name is not in scope 4! CHECK: IF construct name unexpected 5! CHECK: unnamed IF statement 6! CHECK: DO construct name mismatch 7! CHECK: should be 8 9subroutine sub00(a,b,n,m) 10 real a(n,m) 11 real b(n,m) 12 labelone: do i = 1, m 13 labeltwo: do j = 1, n 1450 a(i,j) = b(i,j) + 2.0 15 if (n .eq. m) then 16 cycle label3 17 end if label3 1860 end do labeltwo 19 end do label1 20end subroutine sub00 21