| Issue |
76778
|
| Summary |
Issue in OMP min reduction with nested Parallel Do and Private Variables.
|
| Labels |
new issue
|
| Assignees |
|
| Reporter |
harishch4
|
Are OMP min reductions supported currently in llvm-flang?
The below program works fine with gfortran but fails with llvm-flang.
```
program min_reduction
implicit none
integer, parameter :: n = 1024
integer :: a(n, n), v, i, j, x, y
do i = 1, n
do j = 1, n
a(i, j) = i + j ! min = 2; max = 2048
end do
end do
v = a(1, 1)
y = -2
!$omp parallel do private(x) reduction(min: v)
do i = 1, n
do j = 1, n
x = (i + j)*y ! min = 2048*-2 = -4096
v = min(v, a(i, j), x)
end do
end do
!$omp end parallel do
! print *, "min(a) = ", v
if (v == 2*n*y) then
print *, "PASS"
else
print *, "FAIL"
end if
end program
```
![]()
_______________________________________________
llvm-bugs mailing list
[email protected]
https://lists.llvm.org/cgi-bin/mailman/listinfo/llvm-bugs
