mirror of
https://review.haiku-os.org/buildtools
synced 2025-02-12 08:47:41 +01:00
30 lines
534 B
Fortran
30 lines
534 B
Fortran
! Test OpenACC data regions with optional arguments passed by value.
|
|
|
|
! { dg-do run }
|
|
|
|
program test
|
|
implicit none
|
|
|
|
integer :: res
|
|
|
|
if (foo(27) .ne. 27) stop 1
|
|
if (foo(16, 18) .ne. 288) stop 2
|
|
contains
|
|
function foo(x, y)
|
|
integer, value :: x
|
|
integer, value, optional :: y
|
|
integer :: res, foo
|
|
|
|
!$acc data copyin(x, y) copyout(res)
|
|
!$acc parallel
|
|
res = x
|
|
if (present(y)) then
|
|
res = res * y
|
|
end if
|
|
!$acc end parallel
|
|
!$acc end data
|
|
|
|
foo = res
|
|
end function foo
|
|
end program test
|