56 lines · plain
1! RUN: %flang_fc1 -fdebug-unparse-with-symbols %s 2>&1 | FileCheck %s2! CHECK-NOT: do [1-9]3 4! Figure out how to also execute this test.5 6program main7 integer :: results(100)8 integer :: count9 count = 010 if (.true.) then11 do 1 j1=1,212 count = count + 113 results(count) = j1141 continue15 end if16 do 2 j1=3,417 do 2 j2=1,218 if (j1 == j2) then19 do 3 j3=1,220 count = count + 121 results(count) = 100*j1 + 10*j2 + j322 do 3 j4=1,223 do24 count = count + 125 results(count) = 10*j3 + j426 exit27 end do283 end do29 else30 do31 do 4 j3=3,432 count = count + 133 results(count) = 100*j1 + 10*j2 + j334 do 4 j4=3,435 count = count + 136 results(count) = 10*j3 + j4374 end do38 exit39 end do40 end if41 count = count + 142 results(count) = 10*j1 + j2432 continue44 do 5 j1=5,6 ! adjacent non-block DO loops45 count = count + 1465 results(count) = j147 do 6 j1=7,8 ! non-block DO loop at end of execution part48 count = count + 1496 results(count) = j150 if (count == 34 .and. sum(results(1:count)) == 3739) then51 print *, 'pass'52 else53 print *, 'FAIL:', count, sum(results(1:count)), results(1:count)54 end if55end56