Message ID | 20220201072037.GA6609@delia.home |
---|---|
State | New |
Headers | show |
Series | [committed,libgomp,testsuite] Reduce recursion depth in declare_target-*.f90 | expand |
On Tue, Feb 01, 2022 at 08:20:39AM +0100, Tom de Vries wrote: > [libgomp, testsuite] Reduce recursion depth in declare_target-*.f90 > > libgomp/ChangeLog: > > 2022-01-27 Tom de Vries <tdevries@suse.de> > > * testsuite/libgomp.fortran/examples-4/declare_target-1.f90: Reduce > recursion depth. > * testsuite/libgomp.fortran/examples-4/declare_target-2.f90: Same. Ok. Jakub
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 e439fe1b738..b761979ecde 100644 --- a/libgomp/testsuite/libgomp.fortran/examples-4/declare_target-1.f90 +++ b/libgomp/testsuite/libgomp.fortran/examples-4/declare_target-1.f90 @@ -29,5 +29,7 @@ program e_53_1 if (fib (15) /= fib_wrapper (15)) stop 1 ! Reduced from 25 to 23, otherwise execution runs out of thread stack on ! Nvidia Titan V. - if (fib (23) /= fib_wrapper (23)) stop 2 + ! Reduced from 23 to 22, otherwise execution runs out of thread stack on + ! Nvidia T400 (2GB variant), when run with GOMP_NVPTX_JIT=-O0. + if (fib (22) /= fib_wrapper (22)) 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 ee582b21632..f576c25ba39 100644 --- a/libgomp/testsuite/libgomp.fortran/examples-4/declare_target-2.f90 +++ b/libgomp/testsuite/libgomp.fortran/examples-4/declare_target-2.f90 @@ -6,9 +6,11 @@ program e_53_2 !$omp target map(from: x) ! Reduced from 25 to 23, otherwise execution runs out of thread stack on ! Nvidia Titan V. - x = fib (23) + ! Reduced from 23 to 22, otherwise execution runs out of thread stack on + ! Nvidia T400 (2GB variant), when run with GOMP_NVPTX_JIT=-O0. + x = fib (22) !$omp end target - if (x /= fib (23)) stop 1 + if (x /= fib (22)) stop 1 end program integer recursive function fib (n) result (f)