HLL loop nest cannot run with collapse

This commit is contained in:
sfilippone
2024-08-07 10:54:19 +02:00
parent a28d3b048b
commit 464baceb13
+2 -4
View File
@@ -64,11 +64,9 @@ contains
do i = 1, m
y(i) = beta * y(i)
end do
#if (__GNUC__ <= 13)
! This loop nest cannot be run with collapse, since
! the inner loop extent varies.
!$acc parallel loop present(a, x, y)
#else
!$acc parallel loop collapse(2) present(a, x, y)
#endif
do i = 1, nhacks
do j = a%hkoffs(i), a%hkoffs(i + 1) - 1
y(a%irn(j)) = y(a%irn(j)) + alpha * a%val(j) * x(a%ja(j))