mirror of
https://forge.sourceware.org/marek/gcc.git
synced 2026-02-22 03:47:02 -05:00
libgomp.fortran/get-mapped-ptr-1.f90: Use -6 for non-conf dev number
This is a fix for the GOMP_interop commit r15-8654-g99e2906ae255fc that added GOMP_DEVICE_DEFAULT_OMP_61 alias omp_default_device, which is a conforming device number. But that test used -5 as check for a non-conforming device number. libgomp/ChangeLog: * testsuite/libgomp.fortran/get-mapped-ptr-1.f90: Use -6 not -5 as non-conforming device number.
This commit is contained in:
@@ -19,7 +19,7 @@ program main
|
||||
if (omp_target_associate_ptr (c_loc (q), p, c_sizeof (q), &
|
||||
0_c_size_t, d) == 0) then
|
||||
|
||||
if(c_associated (omp_get_mapped_ptr (c_loc (q), -5))) &
|
||||
if(c_associated (omp_get_mapped_ptr (c_loc (q), -6))) &
|
||||
stop 1
|
||||
|
||||
if(c_associated (omp_get_mapped_ptr (c_loc (q), &
|
||||
|
||||
Reference in New Issue
Block a user