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