diff options
Diffstat (limited to 'libgomp/testsuite/libgomp.fortran/examples-4/e.53.1.f90')
| -rw-r--r-- | libgomp/testsuite/libgomp.fortran/examples-4/e.53.1.f90 | 31 |
1 files changed, 31 insertions, 0 deletions
diff --git a/libgomp/testsuite/libgomp.fortran/examples-4/e.53.1.f90 b/libgomp/testsuite/libgomp.fortran/examples-4/e.53.1.f90 new file mode 100644 index 00000000000..a1885afa1b5 --- /dev/null +++ b/libgomp/testsuite/libgomp.fortran/examples-4/e.53.1.f90 @@ -0,0 +1,31 @@ +! { 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 |