flang/test/Semantics/label03.f90

   1
   2 ! RUN: not %flang_fc1 -fdebug-unparse-with-symbols %s 2>&1 | FileCheck %s
   3 ! CHECK: DO loop doesn't properly nest
   4 ! CHECK: DO loop conflicts
   5 ! CHECK: Label '30' cannot be found
   6 ! CHECK: Label '40' cannot be found
   7 ! CHECK: Label '50' doesn't lexically follow DO stmt
   8
   9 subroutine sub00(a,b,n,m)
  10   real a(n,m)
  11   real b(n,m)
  12   do 10 i = 1, m
  13      do 20 j = 1, n
  14         a(i,j) = b(i,j) + 2.0
  15 10      continue
  16 20      continue
  17 end subroutine sub00
  18
  19 subroutine sub01(a,b,n,m)
  20   real a(n,m)
  21   real b(n,m)
  22   do 30 i = 1, m
  23      do 40 j = 1, n
  24         a(i,j) = b(i,j) + 10.0
  25 35      continue
  26 45      continue
  27 end subroutine sub01
  28
  29 subroutine sub02(a,b,n,m)
  30   real a(n,m)
  31   real b(n,m)
  32 50      continue
  33   do 50 i = 1, m
  34      do 60 j = 1, n
  35         a(i,j) = b(i,j) + 20.0
  36 60      continue
  37 end subroutine sub02