libgomp.{c-c++-common,fortran}/target-is-accessible-1.c: Fix testcases for omp_defaul...

Commit r16-5188-g5da963d988e8ea added omp_default_device such that -5
became a conforming device number, but the tests used them to test
for as non-conforming number; now -6 is used.

libgomp/ChangeLog:

	PR libgomp/119677

	* testsuite/libgomp.c-c++-common/target-is-accessible-1.c: Modify
	test as -5 is now a conforming device number.
	* testsuite/libgomp.fortran/target-is-accessible-1.f90: Likewise.

diff --git a/libgomp/testsuite/libgomp.c-c++-common/target-is-accessible-1.c b/libgomp/testsuite/libgomp.c-c++-common/target-is-accessible-1.c
index 2e75c6300ae622ae495106d39be886a08e37ad26..71d6b2a8360fa0c6e419e847781f4468db47e6b6 100644 (file)
--- a/libgomp/testsuite/libgomp.c-c++-common/target-is-accessible-1.c
+++ b/libgomp/testsuite/libgomp.c-c++-common/target-is-accessible-1.c
@@ -20,7 +20,7 @@ main ()
   if (!omp_target_is_accessible (p, sizeof (int), omp_initial_device))
     __builtin_abort ();
 
-  if (omp_target_is_accessible (p, sizeof (int), -5))
+  if (omp_target_is_accessible (p, sizeof (int), -6 /* omp_default_device - 1 */))
     __builtin_abort ();
 
   if (omp_target_is_accessible (p, sizeof (int), n + 1))

diff --git a/libgomp/testsuite/libgomp.fortran/target-is-accessible-1.f90 b/libgomp/testsuite/libgomp.fortran/target-is-accessible-1.f90
index 150df6f8a4ff8411b89b3c5a093de817c548efb2..2c25dca22f235bb40d338b50ca9fa841f52d181a 100644 (file)
--- a/libgomp/testsuite/libgomp.fortran/target-is-accessible-1.f90
+++ b/libgomp/testsuite/libgomp.fortran/target-is-accessible-1.f90
@@ -22,7 +22,7 @@ program main
   if (omp_target_is_accessible (p, c_sizeof (d), omp_initial_device) /= 1) &
     stop 3
 
-  if (omp_target_is_accessible (p, c_sizeof (d), -5) /= 0) &
+  if (omp_target_is_accessible (p, c_sizeof (d), -6) /= 0) &  ! -6 = omp_default_device - 1
     stop 4
 
   if (omp_target_is_accessible (p, c_sizeof (d), n + 1) /= 0) &