diff options
| author | Tobias Burnus <tburnus@baylibre.com> | 2025-03-22 00:36:44 +0100 |
|---|---|---|
| committer | Tobias Burnus <tburnus@baylibre.com> | 2025-03-22 00:36:44 +0100 |
| commit | c264df142a850b47135c0c4639d3a539b23149c5 (patch) | |
| tree | 3dde9926c4ab3156b5d6b818d0c1c97a82b080ed | |
| parent | db0b0b3db3208770da91ece89350dc23b4d94193 (diff) | |
| download | gcc-c264df142a850b47135c0c4639d3a539b23149c5.zip gcc-c264df142a850b47135c0c4639d3a539b23149c5.tar.gz gcc-c264df142a850b47135c0c4639d3a539b23149c5.tar.bz2 | |
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.
| -rw-r--r-- | libgomp/testsuite/libgomp.fortran/get-mapped-ptr-1.f90 | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/libgomp/testsuite/libgomp.fortran/get-mapped-ptr-1.f90 b/libgomp/testsuite/libgomp.fortran/get-mapped-ptr-1.f90 index 9b6334f..be60acc 100644 --- a/libgomp/testsuite/libgomp.fortran/get-mapped-ptr-1.f90 +++ b/libgomp/testsuite/libgomp.fortran/get-mapped-ptr-1.f90 @@ -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), & |