mirror of
https://github.com/autc04/Retro68.git
synced 2024-11-28 05:51:04 +00:00
20 lines
292 B
Fortran
20 lines
292 B
Fortran
! Test a combined acc parallel loop reduction.
|
|
|
|
! { dg-do run }
|
|
|
|
program test
|
|
implicit none
|
|
integer i, n, var
|
|
|
|
n = 100
|
|
var = 0
|
|
|
|
!$acc parallel loop reduction(+:var)
|
|
do i = 1, 100
|
|
var = var + 1
|
|
end do
|
|
!$acc end parallel loop
|
|
|
|
if (var .ne. n) call abort
|
|
end program test
|