flang/test/Semantics/label08.f90

   1
   2 ! RUN: not %flang_fc1 -fdebug-unparse-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
   9 subroutine 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
  14 50      a(i,j) = b(i,j) + 2.0
  15         if (n .eq. m) then
  16            cycle label3
  17         end if label3
  18 60   end do labeltwo
  19   end do label1
  20 end subroutine sub00