diff options
| author | Tom de Vries <tom@codesourcery.com> | 2018-04-26 13:26:09 +0000 |
|---|---|---|
| committer | Tom de Vries <vries@gcc.gnu.org> | 2018-04-26 13:26:09 +0000 |
| commit | ca9dc642200c91e750e598ef675931dafe50abb5 (patch) | |
| tree | 5f22b7633fa4a1a5182dedb7b7e9d582f6071072 | |
| parent | 1c53fa8ca9912f6acf8c3c8cec31d647bd8ba691 (diff) | |
| download | gcc-ca9dc642200c91e750e598ef675931dafe50abb5.zip gcc-ca9dc642200c91e750e598ef675931dafe50abb5.tar.gz gcc-ca9dc642200c91e750e598ef675931dafe50abb5.tar.bz2 | |
[nvptx, libgomp, testsuite] Reduce recursion depth in declare_target-{1,2}.f90
2018-04-26 Tom de Vries <tom@codesourcery.com>
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
| -rw-r--r-- | libgomp/ChangeLog | 7 | ||||
| -rw-r--r-- | libgomp/testsuite/libgomp.fortran/examples-4/declare_target-1.f90 | 4 | ||||
| -rw-r--r-- | libgomp/testsuite/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 51a8aeb..4d622d9f 100644 --- a/libgomp/ChangeLog +++ b/libgomp/ChangeLog @@ -1,3 +1,10 @@ +2018-04-26 Tom de Vries <tom@codesourcery.com> + + 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 <hongjiu.lu@intel.com> * 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 df941ee..51de6b2 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 9c31569..76cce01 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) |