21 lines · plain
1 2! RUN: not %flang_fc1 -fdebug-unparse-with-symbols %s 2>&1 | FileCheck %s3! CHECK: CYCLE construct-name is not in scope4! CHECK: IF construct name unexpected5! CHECK: unnamed IF statement6! CHECK: DO construct name mismatch7! CHECK: should be8 9subroutine sub00(a,b,n,m)10 real a(n,m)11 real b(n,m)12 labelone: do i = 1, m13 labeltwo: do j = 1, n1450 a(i,j) = b(i,j) + 2.015 if (n .eq. m) then16 cycle label317 end if label31860 end do labeltwo19 end do label120end subroutine sub0021