2 ! { dg
-options
"-O3 -fdump-tree-ldist-details" }
4 parameter(numlev
=3,numoblev
=1000)
5 integer i_otyp
(numoblev
,numlev
), i_styp
(numoblev
,numlev
)
6 logical l_numob
(numoblev
,numlev
)
11 l_numob
(ixe
,iye
)=.false
.
16 if (l_numob
(i
,j
)) then
17 write(20,'(7I4,F12.2,4F16.10)') i_otyp
(i
,j
),i_styp
(i
,j
)
23 ! GCC should apply memset zero loop distribution and it should not ICE
.
25 ! { dg
-final
{ scan
-tree
-dump
"distributed: split to 9 loops" "ldist" } }
26 ! { dg
-final
{ scan
-tree
-dump
-times
"__builtin_memset" 18 "ldist" } }
27 ! { dg
-final
{ cleanup
-tree
-dump
"ldist" } }