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
9subroutine 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
1510      continue
1620      continue
17end subroutine sub00
18
19subroutine 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
2535      continue
2645      continue
27end subroutine sub01
28
29subroutine sub02(a,b,n,m)
30  real a(n,m)
31  real b(n,m)
3250      continue
33  do 50 i = 1, m
34     do 60 j = 1, n
35        a(i,j) = b(i,j) + 20.0
3660      continue
37end subroutine sub02
38