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