4912a04f8b
..., per OpenACC 3.0, A.1.2. "AMD GPU Targets".
This complements commit 6687d13a87 "Rename
acc_device_gcn to acc_device_radeon".
libgomp/
* oacc-init.c (get_openacc_name): Handle 'gcn'.
* testsuite/lib/libgomp.exp
(offload_target_to_openacc_device_type) [amdgcn*]: Return
'radeon'. Adjust all users.
(check_effective_target_openacc_amdgcn_accel_present): Rename
to...
(check_effective_target_openacc_radeon_accel_present): ... this.
Adjust all users.
(check_effective_target_openacc_amdgcn_accel_selected): Rename to...
(check_effective_target_openacc_radeon_accel_selected): ... this.
Adjust all users.
78 lines
1.6 KiB
C
78 lines
1.6 KiB
C
/* Several of the async/wait combinations invoked here are no-ops -- they don't
|
|
effect anything, but are still valid.
|
|
|
|
This doesn't verify that the asynchronous operations synchronize correctly,
|
|
but just verifies that we don't refuse any variants. */
|
|
|
|
#undef NDEBUG
|
|
#include <assert.h>
|
|
#include <openacc.h>
|
|
|
|
int values[] = { acc_async_sync,
|
|
acc_async_noval,
|
|
0,
|
|
1,
|
|
2,
|
|
36,
|
|
1982, };
|
|
const size_t values_n = sizeof values / sizeof values[0];
|
|
|
|
int
|
|
main ()
|
|
{
|
|
/* Explicitly initialize: it's not clear whether the following OpenACC
|
|
runtime library calls implicitly initialize;
|
|
<https://github.com/OpenACC/openacc-spec/issues/102>. */
|
|
acc_device_t d;
|
|
#if defined ACC_DEVICE_TYPE_nvidia
|
|
d = acc_device_nvidia;
|
|
#elif defined ACC_DEVICE_TYPE_radeon
|
|
d = acc_device_radeon;
|
|
#elif defined ACC_DEVICE_TYPE_host
|
|
d = acc_device_host;
|
|
#else
|
|
# error Not ported to this ACC_DEVICE_TYPE
|
|
#endif
|
|
acc_init (d);
|
|
|
|
|
|
for (size_t i = 0; i < values_n; ++i)
|
|
assert (acc_async_test (values[i]) == 1);
|
|
|
|
|
|
for (size_t i = 0; i < values_n; ++i)
|
|
{
|
|
#pragma acc parallel wait (values[i])
|
|
;
|
|
#pragma acc wait (values[i])
|
|
acc_wait (values[i]);
|
|
}
|
|
|
|
|
|
for (size_t i = 0; i < values_n; ++i)
|
|
{
|
|
for (size_t j = 0; j < values_n; ++j)
|
|
{
|
|
#pragma acc parallel wait (values[i]) async (values[j])
|
|
;
|
|
#pragma acc wait (values[i]) async (values[j])
|
|
acc_wait_async (values[i], values[j]);
|
|
}
|
|
}
|
|
|
|
|
|
for (size_t i = 0; i < values_n; ++i)
|
|
{
|
|
#pragma acc parallel wait async (values[i])
|
|
;
|
|
#pragma acc wait async (values[i])
|
|
acc_wait_all_async (values[i]);
|
|
}
|
|
|
|
|
|
/* Clean up. */
|
|
acc_wait_all ();
|
|
|
|
return 0;
|
|
}
|