comparison 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
comparison
equal deleted inserted replaced
18:1830386684a0 19:2b5abeee2509
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
6 program 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
18 end program