annotate 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
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
rev   line source
19
2b5abeee2509 update gcc11
anatofuz
parents:
diff changeset
1 ! { dg-do compile }
2b5abeee2509 update gcc11
anatofuz
parents:
diff changeset
2 ! { dg-additional-options "-O3 -ftree-parallelize-loops=2 -fno-tree-dce" }
2b5abeee2509 update gcc11
anatofuz
parents:
diff changeset
3
2b5abeee2509 update gcc11
anatofuz
parents:
diff changeset
4 ! As PR94043, test it to be compiled successfully without ICE.
2b5abeee2509 update gcc11
anatofuz
parents:
diff changeset
5
2b5abeee2509 update gcc11
anatofuz
parents:
diff changeset
6 program yw
2b5abeee2509 update gcc11
anatofuz
parents:
diff changeset
7 integer :: hx(6, 6)
2b5abeee2509 update gcc11
anatofuz
parents:
diff changeset
8 integer :: ps = 1, e2 = 1
2b5abeee2509 update gcc11
anatofuz
parents:
diff changeset
9
2b5abeee2509 update gcc11
anatofuz
parents:
diff changeset
10 do ps = 1, 6
2b5abeee2509 update gcc11
anatofuz
parents:
diff changeset
11 do e2 = 1, 6
2b5abeee2509 update gcc11
anatofuz
parents:
diff changeset
12 hx(e2, ps) = 0
2b5abeee2509 update gcc11
anatofuz
parents:
diff changeset
13 if (ps >= 5 .and. e2 >= 5) then
2b5abeee2509 update gcc11
anatofuz
parents:
diff changeset
14 hx(e2, ps) = hx(1, 1)
2b5abeee2509 update gcc11
anatofuz
parents:
diff changeset
15 end if
2b5abeee2509 update gcc11
anatofuz
parents:
diff changeset
16 end do
2b5abeee2509 update gcc11
anatofuz
parents:
diff changeset
17 end do
2b5abeee2509 update gcc11
anatofuz
parents:
diff changeset
18 end program