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