procyberian/gcc
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

[nvptx, libgomp, testsuite] Reduce recursion depth in declare_target-{1,2}.f90

Browse source 
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
This commit is contained in:
Tom de Vries 2018-04-26 13:26:09 +00:00 • committed by Tom de Vries
parent 1c53fa8ca9
commit ca9dc64220
3 changed files with 14 additions and 3 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

7
libgomp/ChangeLog
View file

@ -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.

4
libgomp/testsuite/libgomp.fortran/examples-4/declare_target-1.f90
View file

@ -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

6
libgomp/testsuite/libgomp.fortran/examples-4/declare_target-2.f90
View file

@ -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)