openmp: Change omp_get_initial_device () to match OpenMP 5.1 requirements

[gcc.git] / libgomp / config / gcn / icv-device.c

diff --git a/libgomp/config/gcn/icv-device.c b/libgomp/config/gcn/icv-device.c
index 1b09f9738f17ba9977f2f4bc884438e2d8e82303..ba3a446a6eae7f8b3a9c7b4dd2c534185e5e07ad 100644 (file)
--- a/libgomp/config/gcn/icv-device.c
+++ b/libgomp/config/gcn/icv-device.c
@@ -39,6 +39,12 @@ omp_get_default_device (void)
   return 0;
 }
 
+int
+omp_get_initial_device (void)
+{
+  return GOMP_DEVICE_HOST_FALLBACK;
+}
+
 int
 omp_get_num_devices (void)
 {
@@ -66,6 +72,7 @@ omp_is_initial_device (void)
 
 ialias (omp_set_default_device)
 ialias (omp_get_default_device)
+ialias (omp_get_initial_device)
 ialias (omp_get_num_devices)
 ialias (omp_get_num_teams)
 ialias (omp_get_team_num)