From ca9dc642200c91e750e598ef675931dafe50abb5 Mon Sep 17 00:00:00 2001 From: Tom de Vries Date: Thu, 26 Apr 2018 13:26:09 +0000 Subject: [PATCH] [nvptx, libgomp, testsuite] Reduce recursion depth in declare_target-{1,2}.f90 2018-04-26 Tom de Vries PR target/85519 * testsuite/libgomp.fortran/examples-4/declare_target-1.f90: Reduce recursion depth from 25 to 23. * testsuite/libgomp.fortran/examples-4/declare_target-2.f90: Same. From-SVN: r259674 --- libgomp/ChangeLog | 7 +++++++ .../libgomp.fortran/examples-4/declare_target-1.f90 | 4 +++- .../libgomp.fortran/examples-4/declare_target-2.f90 | 6 ++++-- 3 files changed, 14 insertions(+), 3 deletions(-) diff --git a/libgomp/ChangeLog b/libgomp/ChangeLog index 51a8aebfdae..4d622d9ff1d 100644 --- a/libgomp/ChangeLog +++ b/libgomp/ChangeLog @@ -1,3 +1,10 @@ +2018-04-26 Tom de Vries + + PR target/85519 + * testsuite/libgomp.fortran/examples-4/declare_target-1.f90: Reduce + recursion depth from 25 to 23. + * testsuite/libgomp.fortran/examples-4/declare_target-2.f90: Same. + 2018-04-24 H.J. Lu * configure: Regenerated. diff --git a/libgomp/testsuite/libgomp.fortran/examples-4/declare_target-1.f90 b/libgomp/testsuite/libgomp.fortran/examples-4/declare_target-1.f90 index df941eeaa2e..51de6b26b36 100644 --- a/libgomp/testsuite/libgomp.fortran/examples-4/declare_target-1.f90 +++ b/libgomp/testsuite/libgomp.fortran/examples-4/declare_target-1.f90 @@ -27,5 +27,7 @@ end module program e_53_1 use e_53_1_mod, only : fib, fib_wrapper if (fib (15) /= fib_wrapper (15)) STOP 1 - if (fib (25) /= fib_wrapper (25)) STOP 2 + ! Reduced from 25 to 23, otherwise execution runs out of thread stack on + ! Nvidia Titan V. + if (fib (23) /= fib_wrapper (23)) STOP 2 end program diff --git a/libgomp/testsuite/libgomp.fortran/examples-4/declare_target-2.f90 b/libgomp/testsuite/libgomp.fortran/examples-4/declare_target-2.f90 index 9c315697275..76cce01a658 100644 --- a/libgomp/testsuite/libgomp.fortran/examples-4/declare_target-2.f90 +++ b/libgomp/testsuite/libgomp.fortran/examples-4/declare_target-2.f90 @@ -4,9 +4,11 @@ program e_53_2 !$omp declare target (fib) integer :: x, fib !$omp target map(from: x) - x = fib (25) + ! Reduced from 25 to 23, otherwise execution runs out of thread stack on + ! Nvidia Titan V. + x = fib (23) !$omp end target - if (x /= fib (25)) STOP 1 + if (x /= fib (23)) STOP 1 end program integer recursive function fib (n) result (f) -- 2.30.2