mirror of
https://github.com/autc04/Retro68.git
synced 2024-11-30 19:53:46 +00:00
32 lines
652 B
Fortran
32 lines
652 B
Fortran
! { dg-do run }
|
|
|
|
module e_53_1_mod
|
|
integer :: THRESHOLD = 20
|
|
contains
|
|
integer recursive function fib (n) result (f)
|
|
!$omp declare target
|
|
integer :: n
|
|
if (n <= 0) then
|
|
f = 0
|
|
else if (n == 1) then
|
|
f = 1
|
|
else
|
|
f = fib (n - 1) + fib (n - 2)
|
|
end if
|
|
end function
|
|
|
|
integer function fib_wrapper (n)
|
|
integer :: x
|
|
!$omp target map(to: n) if(n > THRESHOLD)
|
|
x = fib (n)
|
|
!$omp end target
|
|
fib_wrapper = x
|
|
end function
|
|
end module
|
|
|
|
program e_53_1
|
|
use e_53_1_mod, only : fib, fib_wrapper
|
|
if (fib (15) /= fib_wrapper (15)) call abort
|
|
if (fib (25) /= fib_wrapper (25)) call abort
|
|
end program
|