38 lines · plain
1 2! RUN: not %flang_fc1 -fdebug-unparse-with-symbols %s 2>&1 | FileCheck %s3! CHECK: DO loop doesn't properly nest4! CHECK: DO loop conflicts5! CHECK: Label '30' cannot be found6! CHECK: Label '40' cannot be found7! CHECK: Label '50' doesn't lexically follow DO stmt8 9subroutine sub00(a,b,n,m)10 real a(n,m)11 real b(n,m)12 do 10 i = 1, m13 do 20 j = 1, n14 a(i,j) = b(i,j) + 2.01510 continue1620 continue17end subroutine sub0018 19subroutine sub01(a,b,n,m)20 real a(n,m)21 real b(n,m)22 do 30 i = 1, m23 do 40 j = 1, n24 a(i,j) = b(i,j) + 10.02535 continue2645 continue27end subroutine sub0128 29subroutine sub02(a,b,n,m)30 real a(n,m)31 real b(n,m)3250 continue33 do 50 i = 1, m34 do 60 j = 1, n35 a(i,j) = b(i,j) + 20.03660 continue37end subroutine sub0238