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

openmp: Fix up get-mapped-ptr-1.{c,f90} tests

Browse source 
On Tue, Jun 14, 2022 at 06:41:37PM +0200, Thomas Schwinge wrote:
> In an offloading configuration, I'm seeing:
>
>     PASS: libgomp.fortran/get-mapped-ptr-1.f90   -O  (test for excess errors)
>     [-PASS:-]{+FAIL:+} libgomp.fortran/get-mapped-ptr-1.f90   -O  execution test
>
> Does that one need similar treatment?

I assume not just that but libgomp.c-c++-common/get-mapped-ptr-1.c too?

It both needs the same treatment, and in the get-mapped-ptr-1.c
case there is even UB, while the Fortran version was using c_loc (q)
as the host pointer, in C/C++ it was using q which was value of
uninitialized pointer.

2022-06-15  Jakub Jelinek  <jakub@redhat.com>

	* testsuite/libgomp.c-c++-common/get-mapped-ptr-1.c (main): Initialize
	q to ddress of an automatic variable.  Use -5 instead of -1 in
	omp_get_mapped_ptr call.  Add test with omp_initial_device.
	* testsuite/libgomp.fortran/get-mapped-ptr-1.f90 (main): Use -5 instead
	of -1 in omp_get_mapped_ptr call.  Add test with omp_initial_device.
	Renumber stop arguments afterwards.
This commit is contained in:
Jakub Jelinek 2022-06-15 10:45:04 +02:00
parent acb1e6f43d
commit 7bfb3f488a
2 changed files with 16 additions and 6 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

10
libgomp/testsuite/libgomp.c-c++-common/get-mapped-ptr-1.c
View file

@ -6,7 +6,10 @@ main ()
{
int d = omp_get_default_device ();
int id = omp_get_initial_device ();
void *p , *q;
int x;
void *p, *q;
q = (void *) &x;
if (d < 0 || d >= omp_get_num_devices ())
d = id;
@ -18,7 +21,7 @@ main ()
if (omp_target_associate_ptr (q, p, sizeof (int), 0, d) != 0)
return 0;
if (omp_get_mapped_ptr (q, -1) != NULL)
if (omp_get_mapped_ptr (q, -5) != NULL)
abort ();
if (omp_get_mapped_ptr (q, omp_get_num_devices () + 1) != NULL)
@ -27,6 +30,9 @@ main ()
if (omp_get_mapped_ptr (q, id) != q)
abort ();
if (omp_get_mapped_ptr (q, omp_initial_device) != q)
abort ();
if (omp_get_mapped_ptr (q, d) != p)
abort ();

12
libgomp/testsuite/libgomp.fortran/get-mapped-ptr-1.f90
View file

@ -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), -1))) &
if(c_associated (omp_get_mapped_ptr (c_loc (q), -5))) &
stop 1
if(c_associated (omp_get_mapped_ptr (c_loc (q), &
@ -29,14 +29,18 @@ program main
if(.not. c_associated (omp_get_mapped_ptr (c_loc (q), id), c_loc (q))) &
stop 3
if(.not. c_associated (omp_get_mapped_ptr (c_loc (q), d), p)) &
if(.not. c_associated (omp_get_mapped_ptr (c_loc (q), omp_initial_device), &
c_loc (q))) &
stop 4
if (omp_target_disassociate_ptr (c_loc (q), d) /= 0) &
if(.not. c_associated (omp_get_mapped_ptr (c_loc (q), d), p)) &
stop 5
if(c_associated (omp_get_mapped_ptr (c_loc (q), d))) &
if (omp_target_disassociate_ptr (c_loc (q), d) /= 0) &
stop 6
if(c_associated (omp_get_mapped_ptr (c_loc (q), d))) &
stop 7
end if
call omp_target_free (p, d)