79e3f7d54b
When gcc is configured for nvptx offloading with --without-cuda-driver and full CUDA isn't installed, many libgomp.oacc-*/* tests fail, some of them because cuda.h header can't be found, others because the tests can't be linked against -lcuda, -lcudart or -lcublas. I usually only have akmod-nvidia and xorg-x11-drv-nvidia-cuda rpms installed, so libcuda.so.1 can be dlopened and the offloading works, but linking against those libraries isn't possible nor are the headers around (for the plugin itself there is the fallback libgomp/plugin/cuda/cuda.h). The following patch adds 3 new effective targets and uses them in tests that needs those. 2021-05-27 Jakub Jelinek <jakub@redhat.com> * testsuite/lib/libgomp.exp (check_effective_target_openacc_cuda, check_effective_target_openacc_cublas, check_effective_target_openacc_cudart): New. * testsuite/libgomp.oacc-fortran/host_data-4.f90: Require effective target openacc_cublas. * testsuite/libgomp.oacc-fortran/host_data-2.f90: Likewise. * testsuite/libgomp.oacc-fortran/host_data-3.f: Likewise. * testsuite/libgomp.oacc-c-c++-common/lib-91.c: Require effective target openacc_cuda. * testsuite/libgomp.oacc-c-c++-common/lib-70.c: Likewise. * testsuite/libgomp.oacc-c-c++-common/lib-90.c: Likewise. * testsuite/libgomp.oacc-c-c++-common/lib-75.c: Likewise. * testsuite/libgomp.oacc-c-c++-common/lib-69.c: Likewise. * testsuite/libgomp.oacc-c-c++-common/lib-74.c: Likewise. * testsuite/libgomp.oacc-c-c++-common/lib-81.c: Likewise. * testsuite/libgomp.oacc-c-c++-common/lib-72.c: Likewise. * testsuite/libgomp.oacc-c-c++-common/lib-85.c: Likewise. * testsuite/libgomp.oacc-c-c++-common/pr87835.c: Likewise. * testsuite/libgomp.oacc-c-c++-common/lib-82.c: Likewise. * testsuite/libgomp.oacc-c-c++-common/lib-73.c: Likewise. * testsuite/libgomp.oacc-c-c++-common/lib-83.c: Likewise. * testsuite/libgomp.oacc-c-c++-common/lib-78.c: Likewise. * testsuite/libgomp.oacc-c-c++-common/lib-76.c: Likewise. * testsuite/libgomp.oacc-c-c++-common/lib-84.c: Likewise. * testsuite/libgomp.oacc-c-c++-common/lib-79.c: Likewise. * testsuite/libgomp.oacc-c-c++-common/host_data-1.c: Require effective targets openacc_cublas and openacc_cudart. * testsuite/libgomp.oacc-c-c++-common/context-1.c: Likewise. * testsuite/libgomp.oacc-c-c++-common/context-2.c: Likewise. * testsuite/libgomp.oacc-c-c++-common/context-3.c: Likewise. * testsuite/libgomp.oacc-c-c++-common/context-4.c: Likewise. * testsuite/libgomp.oacc-c-c++-common/acc_get_property-nvptx.c: Require effective target openacc_cudart. * testsuite/libgomp.oacc-c-c++-common/asyncwait-1.c: Add -DUSE_CUDA_H for effective target openacc_cuda and add && defined USE_CUDA_H to preprocessor conditionals. Guard -lcuda also on openacc_cuda effective target.
150 lines
3.1 KiB
C
150 lines
3.1 KiB
C
/* { dg-do run { target openacc_nvidia_accel_selected } } */
|
|
/* { dg-additional-options "-lcuda" } */
|
|
/* { dg-require-effective-target openacc_cuda } */
|
|
|
|
#include <stdio.h>
|
|
#include <stdlib.h>
|
|
#include <unistd.h>
|
|
#include <openacc.h>
|
|
#include <cuda.h>
|
|
|
|
int
|
|
main (int argc, char **argv)
|
|
{
|
|
CUdevice dev;
|
|
CUfunction delay2;
|
|
CUmodule module;
|
|
CUresult r;
|
|
int N;
|
|
int i;
|
|
CUstream *streams;
|
|
unsigned long **a, **d_a, *tid, ticks;
|
|
int nbytes;
|
|
void *kargs[3];
|
|
int clkrate;
|
|
int devnum, nprocs;
|
|
|
|
acc_init (acc_device_nvidia);
|
|
|
|
devnum = acc_get_device_num (acc_device_nvidia);
|
|
|
|
r = cuDeviceGet (&dev, devnum);
|
|
if (r != CUDA_SUCCESS)
|
|
{
|
|
fprintf (stderr, "cuDeviceGet failed: %d\n", r);
|
|
abort ();
|
|
}
|
|
|
|
r =
|
|
cuDeviceGetAttribute (&nprocs, CU_DEVICE_ATTRIBUTE_MULTIPROCESSOR_COUNT,
|
|
dev);
|
|
if (r != CUDA_SUCCESS)
|
|
{
|
|
fprintf (stderr, "cuDeviceGetAttribute failed: %d\n", r);
|
|
abort ();
|
|
}
|
|
|
|
r = cuDeviceGetAttribute (&clkrate, CU_DEVICE_ATTRIBUTE_CLOCK_RATE, dev);
|
|
if (r != CUDA_SUCCESS)
|
|
{
|
|
fprintf (stderr, "cuDeviceGetAttribute failed: %d\n", r);
|
|
abort ();
|
|
}
|
|
|
|
r = cuModuleLoad (&module, "subr.ptx");
|
|
if (r != CUDA_SUCCESS)
|
|
{
|
|
fprintf (stderr, "cuModuleLoad failed: %d\n", r);
|
|
abort ();
|
|
}
|
|
|
|
r = cuModuleGetFunction (&delay2, module, "delay2");
|
|
if (r != CUDA_SUCCESS)
|
|
{
|
|
fprintf (stderr, "cuModuleGetFunction failed: %d\n", r);
|
|
abort ();
|
|
}
|
|
|
|
nbytes = sizeof (int);
|
|
|
|
ticks = (unsigned long) (200.0 * clkrate);
|
|
|
|
N = nprocs;
|
|
|
|
streams = (CUstream *) malloc (N * sizeof (void *));
|
|
|
|
a = (unsigned long **) malloc (N * sizeof (unsigned long *));
|
|
d_a = (unsigned long **) malloc (N * sizeof (unsigned long *));
|
|
tid = (unsigned long *) malloc (N * sizeof (unsigned long));
|
|
|
|
for (i = 0; i < N; i++)
|
|
{
|
|
a[i] = (unsigned long *) malloc (sizeof (unsigned long));
|
|
*a[i] = N;
|
|
d_a[i] = (unsigned long *) acc_malloc (nbytes);
|
|
tid[i] = i;
|
|
|
|
acc_map_data (a[i], d_a[i], nbytes);
|
|
|
|
streams[i] = (CUstream) acc_get_cuda_stream (i);
|
|
if (streams[i] != NULL)
|
|
abort ();
|
|
|
|
r = cuStreamCreate (&streams[i], CU_STREAM_DEFAULT);
|
|
if (r != CUDA_SUCCESS)
|
|
{
|
|
fprintf (stderr, "cuStreamCreate failed: %d\n", r);
|
|
abort ();
|
|
}
|
|
|
|
if (!acc_set_cuda_stream (i, streams[i]))
|
|
abort ();
|
|
}
|
|
|
|
for (i = 0; i < N; i++)
|
|
{
|
|
kargs[0] = (void *) &d_a[i];
|
|
kargs[1] = (void *) &ticks;
|
|
kargs[2] = (void *) &tid[i];
|
|
|
|
r = cuLaunchKernel (delay2, 1, 1, 1, 1, 1, 1, 0, streams[i], kargs, 0);
|
|
if (r != CUDA_SUCCESS)
|
|
{
|
|
fprintf (stderr, "cuLaunchKernel failed: %d\n", r);
|
|
abort ();
|
|
}
|
|
|
|
ticks = (unsigned long) (50.0 * clkrate);
|
|
}
|
|
|
|
acc_wait_all_async (0);
|
|
|
|
for (i = 0; i < N; i++)
|
|
{
|
|
acc_memcpy_from_device (a[i], d_a[i], nbytes);
|
|
if (*a[i] != i)
|
|
abort ();
|
|
|
|
acc_unmap_data (a[i]);
|
|
|
|
acc_free (d_a[i]);
|
|
}
|
|
|
|
free (streams);
|
|
|
|
for (i = 0; i < N; i++)
|
|
{
|
|
free (a[i]);
|
|
}
|
|
|
|
free (a);
|
|
free (d_a);
|
|
free (tid);
|
|
|
|
acc_shutdown (acc_device_nvidia);
|
|
|
|
exit (0);
|
|
}
|
|
|
|
/* { dg-output "" } */
|