diff options
author | vries <vries@138bc75d-0d04-0410-961f-82ee72b054a4> | 2018-05-02 10:55:07 +0000 |
---|---|---|
committer | vries <vries@138bc75d-0d04-0410-961f-82ee72b054a4> | 2018-05-02 10:55:07 +0000 |
commit | ed1934644867ab28587c20f9f5688f646659a0da (patch) | |
tree | 38a5116674d0d368b4a775c6125daf71e79fedb5 | |
parent | 68fc0ec2c57b0519bd7e1f9e013f37f112d65a3d (diff) |
backport "[nvptx, libgomp, testsuite] Reduce recursion depth in declare_target-{1,2}.f90"
2018-05-02 Tom de Vries <tom@codesourcery.com>
backport from trunk:
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.
git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/branches/gcc-8-branch@259834 138bc75d-0d04-0410-961f-82ee72b054a4
-rw-r--r-- | libgomp/ChangeLog | 10 | ||||
-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, 17 insertions, 3 deletions
diff --git a/libgomp/ChangeLog b/libgomp/ChangeLog index 1f1bf1631cf..9937bf0438d 100644 --- a/libgomp/ChangeLog +++ b/libgomp/ChangeLog @@ -1,3 +1,13 @@ +2018-05-02 Tom de Vries <tom@codesourcery.com> + + backport from trunk: + 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-05-02 Release Manager * GCC 8.1.0 released. 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) |