1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
|
/* Test the `acc_get_property' and `acc_get_property_string' library
functions on amdgcn devices by comparing property values with
those obtained through the HSA API. */
/* { dg-additional-sources acc_get_property-aux.c } */
/* { dg-additional-options "-ldl" } */
/* { dg-do run { target openacc_amdgcn_accel_selected } } */
#include <dlfcn.h>
#include <stdint.h>
#include <stdio.h>
#include <stdlib.h>
#include <string.h>
#include <openacc.h>
#ifndef __cplusplus
typedef int bool;
#endif
#include <hsa.h>
void expect_device_string_properties (acc_device_t dev_type, int dev_num,
const char* expected_vendor,
const char* expected_name,
const char* expected_driver);
hsa_status_t (*hsa_agent_get_info_fn) (hsa_agent_t agent,
hsa_agent_info_t attribute,
void *value);
hsa_status_t (*hsa_system_get_info_fn) (hsa_system_info_t attribute,
void *value);
hsa_status_t (*hsa_iterate_agents_fn)
(hsa_status_t (*callback)(hsa_agent_t agent, void *data), void *data);
hsa_status_t (*hsa_init_fn) (void);
char* support_cpu_devices;
void
test_setup ()
{
char* env_runtime;
char* hsa_runtime_lib;
void *handle;
#define DLSYM_FN(function) \
function##_fn = (typeof(function##_fn))dlsym (handle, #function); \
if (function##_fn == NULL) \
{ \
fprintf (stderr, "Could not get symbol " #function ".\n"); \
abort (); \
}
env_runtime = getenv ("HSA_RUNTIME_LIB");
hsa_runtime_lib = env_runtime ? env_runtime : (char*)"libhsa-runtime64.so";
handle = dlopen (hsa_runtime_lib, RTLD_LAZY);
if (!handle)
{
fprintf (stderr, "Could not load %s.\n", hsa_runtime_lib);
abort ();
}
DLSYM_FN (hsa_agent_get_info)
DLSYM_FN (hsa_system_get_info)
DLSYM_FN (hsa_iterate_agents)
DLSYM_FN (hsa_init)
hsa_init_fn ();
support_cpu_devices = getenv ("GCN_SUPPORT_CPU_DEVICES");
}
static hsa_status_t
check_agent_properties (hsa_agent_t agent, void *dev_num_arg)
{
char name[64];
char vendor_name[64];
uint16_t minor;
uint16_t major;
char driver[60];
hsa_status_t status;
hsa_device_type_t device_type;
int* dev_num = (int*)dev_num_arg;
#define AGENT_GET_INFO(info_type, val) \
status = hsa_agent_get_info_fn (agent, info_type, &val); \
if (status != HSA_STATUS_SUCCESS) \
{ \
fprintf (stderr, "Failed to obtain " #info_type ".\n"); \
abort (); \
}
#define SYSTEM_GET_INFO(info_type, val) \
status = hsa_system_get_info_fn (info_type, &val); \
if (status != HSA_STATUS_SUCCESS) \
{ \
fprintf (stderr, "Failed to obtain " #info_type ".\n"); \
abort (); \
}
AGENT_GET_INFO (HSA_AGENT_INFO_DEVICE, device_type)
/* Skip unsupported device types. Mimic the GCN plugin's behavior. */
if (!(device_type == HSA_DEVICE_TYPE_GPU
|| (support_cpu_devices && device_type == HSA_DEVICE_TYPE_CPU)))
return HSA_STATUS_SUCCESS;
AGENT_GET_INFO (HSA_AGENT_INFO_NAME, name)
AGENT_GET_INFO (HSA_AGENT_INFO_VENDOR_NAME, vendor_name)
SYSTEM_GET_INFO (HSA_SYSTEM_INFO_VERSION_MINOR, minor)
SYSTEM_GET_INFO (HSA_SYSTEM_INFO_VERSION_MAJOR, major)
snprintf (driver, sizeof driver, "HSA Runtime %hu.%hu",
(unsigned short int)major, (unsigned short int)minor);
expect_device_string_properties(acc_device_radeon, *dev_num,
vendor_name, name, driver);
(*dev_num)++;
return status;
}
int
main ()
{
int dev_num = 0;
test_setup ();
hsa_status_t status =
hsa_iterate_agents_fn (&check_agent_properties, &dev_num);
return status;
}
|