164ab3302SCarolineConcatto 2*96d229c9SAndrzej Warzynski! RUN: not %flang_fc1 -fdebug-unparse-with-symbols %s 2>&1 | FileCheck %s 364ab3302SCarolineConcatto! CHECK: CYCLE construct-name is not in scope 464ab3302SCarolineConcatto! CHECK: IF construct name unexpected 564ab3302SCarolineConcatto! CHECK: unnamed IF statement 664ab3302SCarolineConcatto! CHECK: DO construct name mismatch 764ab3302SCarolineConcatto! CHECK: should be 864ab3302SCarolineConcatto 964ab3302SCarolineConcattosubroutine sub00(a,b,n,m) 1064ab3302SCarolineConcatto real a(n,m) 1164ab3302SCarolineConcatto real b(n,m) 1264ab3302SCarolineConcatto labelone: do i = 1, m 1364ab3302SCarolineConcatto labeltwo: do j = 1, n 1464ab3302SCarolineConcatto50 a(i,j) = b(i,j) + 2.0 1564ab3302SCarolineConcatto if (n .eq. m) then 1664ab3302SCarolineConcatto cycle label3 1764ab3302SCarolineConcatto end if label3 1864ab3302SCarolineConcatto60 end do labeltwo 1964ab3302SCarolineConcatto end do label1 2064ab3302SCarolineConcattoend subroutine sub00 21