view gcc/testsuite/gfortran.dg/graphite/vect-pr94043.f90 @ 19:2b5abeee2509 default tip

update gcc11
author anatofuz
date Mon, 25 May 2020 07:50:57 +0900
parents
children
line wrap: on
line source

! { dg-do compile }
! { dg-additional-options "-O3 -ftree-parallelize-loops=2 -fno-tree-dce" }

! As PR94043, test it to be compiled successfully without ICE.

program yw
      integer :: hx(6, 6)
      integer :: ps = 1, e2 = 1

      do ps = 1, 6
        do e2 = 1, 6
            hx(e2, ps) = 0
            if (ps >= 5 .and. e2 >= 5) then
                hx(e2, ps) = hx(1, 1)
            end if
        end do
      end do
end program