4 integer :: THRESHOLD
= 20
6 integer recursive function fib (n
) result (f
)
14 f
= fib (n
- 1) + fib (n
- 2)
18 integer function fib_wrapper (n
)
20 !$omp target map(to: n) map(from: x) if(n > THRESHOLD)
28 use e_53_1_mod
, only
: fib
, fib_wrapper
29 if (fib (15) /= fib_wrapper (15)) call abort
30 if (fib (25) /= fib_wrapper (25)) call abort