1! RUN: %f18 -funparse-with-symbols %s 2>&1 | FileCheck %s 2! CHECK-NOT: do [1-9] 3 4! Figure out how to also execute this test. 5 6program main 7 integer :: results(100) 8 integer :: count 9 count = 0 10 if (.true.) then 11 do 1 j1=1,2 12 count = count + 1 13 results(count) = j1 141 continue 15 end if 16 do 2 j1=3,4 17 do 2 j2=1,2 18 if (j1 == j2) then 19 do 3 j3=1,2 20 count = count + 1 21 results(count) = 100*j1 + 10*j2 + j3 22 do 3 j4=1,2 23 do 24 count = count + 1 25 results(count) = 10*j3 + j4 26 exit 27 end do 283 end do 29 else 30 do 31 do 4 j3=3,4 32 count = count + 1 33 results(count) = 100*j1 + 10*j2 + j3 34 do 4 j4=3,4 35 count = count + 1 36 results(count) = 10*j3 + j4 374 end do 38 exit 39 end do 40 end if 41 count = count + 1 42 results(count) = 10*j1 + j2 432 continue 44 do 5 j1=5,6 ! adjacent non-block DO loops 45 count = count + 1 465 results(count) = j1 47 do 6 j1=7,8 ! non-block DO loop at end of execution part 48 count = count + 1 496 results(count) = j1 50 if (count == 34 .and. sum(results(1:count)) == 3739) then 51 print *, 'pass' 52 else 53 print *, 'FAIL:', count, sum(results(1:count)), results(1:count) 54 end if 55end 56