1! { dg-do compile } 2! { dg-additional-options "-O3 -ftree-parallelize-loops=2 -fno-tree-dce" } 3 4! As PR94043, test it to be compiled successfully without ICE. 5 6program yw 7 integer :: hx(6, 6) 8 integer :: ps = 1, e2 = 1 9 10 do ps = 1, 6 11 do e2 = 1, 6 12 hx(e2, ps) = 0 13 if (ps >= 5 .and. e2 >= 5) then 14 hx(e2, ps) = hx(1, 1) 15 end if 16 end do 17 end do 18end program 19