6c84c8bf9b
Add generic support for the OpenACC 2.6 `acc_get_property' and `acc_get_property_string' routines, as well as full handlers for the host and the NVPTX offload targets and minimal handlers for the HSA, Intel MIC, and AMD GCN offload targets. Included are C/C++ and Fortran tests that, in particular, print the property values for acc_property_vendor, acc_property_memory, acc_property_free_memory, acc_property_name, and acc_property_driver. The output looks as follows: Vendor: GNU Name: GOMP Total memory: 0 Free memory: 0 Driver: 1.0 with the host driver (where the memory related properties are not supported for the host device and yield 0, conforming to the standard) and output like: Vendor: Nvidia Total memory: 12651462656 Free memory: 12202737664 Name: TITAN V Driver: CUDA Driver 9.1 with the NVPTX driver. 2019-12-22 Maciej W. Rozycki <macro@codesourcery.com> Frederik Harwath <frederik@codesourcery.com> Thomas Schwinge <tschwinge@codesourcery.com> include/ * gomp-constants.h (gomp_device_property): New enum. libgomp/ * libgomp.h (gomp_device_descr): Add `get_property_func' member. * libgomp-plugin.h (gomp_device_property_value): New union. (gomp_device_property_value): New prototype. * openacc.h (acc_device_t): Add `acc_device_current' enumeration constant. (acc_device_property_t): New enum. (acc_get_property, acc_get_property_string): New prototypes. * oacc-init.c (acc_get_device_type): Also assert that result is not `acc_device_current'. (get_property_any, acc_get_property, acc_get_property_string): New functions. * openacc.f90 (openacc_kinds): Add `acc_device_current' and `acc_property_memory', `acc_property_free_memory', `acc_property_name', `acc_property_vendor' and `acc_property_driver' constants. Add `acc_device_property' data type. (openacc_internal): Add `acc_get_property' and `acc_get_property_string' interfaces. Add `acc_get_property_h', `acc_get_property_string_h', `acc_get_property_l' and `acc_get_property_string_l'. * oacc-host.c (host_get_property): New function. (host_dispatch): Wire it. * target.c (gomp_load_plugin_for_device): Handle `get_property'. * libgomp.map (OACC_2.6): Add `acc_get_property', `acc_get_property_h_', `acc_get_property_string' and `acc_get_property_string_h_' symbols. * libgomp.texi (OpenACC Runtime Library Routines): Add `acc_get_property'. (acc_get_property): New node. * plugin/plugin-gcn.c (GOMP_OFFLOAD_get_property): New function (stub). * plugin/plugin-hsa.c (GOMP_OFFLOAD_get_property): New function. * plugin/plugin-nvptx.c (CUDA_CALLS): Add `cuDeviceGetName', `cuDeviceTotalMem', `cuDriverGetVersion' and `cuMemGetInfo' calls. (GOMP_OFFLOAD_get_property): New function. (struct ptx_device): Add new field "name". (cuda_driver_version_s): Add new static variable ... (nvptx_init): ... and init from here. * testsuite/libgomp.oacc-c-c++-common/acc_get_property.c: New test. * testsuite/libgomp.oacc-c-c++-common/acc_get_property-2.c: New test. * testsuite/libgomp.oacc-c-c++-common/acc_get_property-3.c: New test. * testsuite/libgomp.oacc-c-c++-common/acc_get_property-aux.c: New file with test helper functions. * testsuite/libgomp.oacc-fortran/acc_get_property.f90: New test. liboffloadmic/ * plugin/libgomp-plugin-intelmic.cpp (GOMP_OFFLOAD_get_property): New function. Reviewed-by: Thomas Schwinge <thomas@codesourcery.com> Co-Authored-By: Frederik Harwath <frederik@codesourcery.com> Co-Authored-By: Thomas Schwinge <tschwinge@codesourcery.com> From-SVN: r279710
77 lines
2.1 KiB
C
77 lines
2.1 KiB
C
/* Test the `acc_get_property' and '`acc_get_property_string' library
|
|
functions by printing the results of those functions for all devices
|
|
of all device types mentioned in the OpenACC standard.
|
|
|
|
See also acc_get_property.f90. */
|
|
/* { dg-do run { target { { ! { openacc_host_selected } } && { ! { openacc_amdgcn_accel_selected } } } } } */
|
|
/* FIXME: This test does not work with the GCN implementation stub yet. */
|
|
|
|
#include <openacc.h>
|
|
#include <stdlib.h>
|
|
#include <stdio.h>
|
|
#include <string.h>
|
|
|
|
/* Print the values of the properties of all devices of the given type
|
|
and do basic device independent validation. */
|
|
|
|
void
|
|
print_device_properties(acc_device_t type)
|
|
{
|
|
const char *s;
|
|
size_t v;
|
|
|
|
int dev_count = acc_get_num_devices(type);
|
|
|
|
for (int i = 0; i < dev_count; ++i)
|
|
{
|
|
printf(" Device %d:\n", i+1);
|
|
|
|
s = acc_get_property_string (i, type, acc_property_vendor);
|
|
printf (" Vendor: %s\n", s);
|
|
if (s == NULL || *s == 0)
|
|
{
|
|
fprintf (stderr, "acc_property_vendor should not be null or empty.\n");
|
|
abort ();
|
|
}
|
|
|
|
v = acc_get_property (i, type, acc_property_memory);
|
|
printf (" Total memory: %zd\n", v);
|
|
|
|
v = acc_get_property (i, type, acc_property_free_memory);
|
|
printf (" Free memory: %zd\n", v);
|
|
|
|
s = acc_get_property_string (i, type, acc_property_name);
|
|
printf (" Name: %s\n", s);
|
|
if (s == NULL || *s == 0)
|
|
{
|
|
fprintf (stderr, "acc_property_name should not be null or empty.\n");
|
|
abort ();
|
|
}
|
|
|
|
s = acc_get_property_string (i, type, acc_property_driver);
|
|
printf (" Driver: %s\n", s);
|
|
if (s == NULL || *s == 0)
|
|
{
|
|
fprintf (stderr, "acc_property_string should not be null or empty.\n");
|
|
abort ();
|
|
}
|
|
}
|
|
}
|
|
|
|
int main ()
|
|
{
|
|
printf("acc_device_none:\n");
|
|
/* For completness; not expected to print anything since there
|
|
should be no devices of this type. */
|
|
print_device_properties(acc_device_none);
|
|
|
|
printf("acc_device_default:\n");
|
|
print_device_properties(acc_device_default);
|
|
|
|
printf("acc_device_host:\n");
|
|
print_device_properties(acc_device_host);
|
|
|
|
printf("acc_device_not_host:\n");
|
|
print_device_properties(acc_device_not_host);
|
|
}
|