@@ -72,6 +72,7 @@ ialias_redirect (omp_get_default_device)
ialias_redirect (omp_get_num_devices)
ialias_redirect (omp_get_num_teams)
ialias_redirect (omp_get_team_num)
+ialias_redirect (omp_is_initial_device)
#endif
#ifndef LIBGOMP_GNU_SYMBOL_VERSIONING
@@ -485,3 +486,9 @@ omp_get_team_num_ (void)
{
return omp_get_team_num ();
}
+
+int32_t
+omp_is_initial_device_ (void)
+{
+ return omp_is_initial_device ();
+}
@@ -330,4 +330,10 @@
end function omp_get_team_num
end interface
+ interface
+ function omp_is_initial_device ()
+ logical (4) :: omp_is_initial_device
+ end function omp_is_initial_device
+ end interface
+
end module omp_lib
@@ -118,6 +118,8 @@ extern int omp_get_num_devices (void) __
extern int omp_get_num_teams (void) __GOMP_NOTHROW;
extern int omp_get_team_num (void) __GOMP_NOTHROW;
+extern int omp_is_initial_device (void) __GOMP_NOTHROW;
+
#ifdef __cplusplus
}
#endif
@@ -130,6 +130,8 @@ OMP_4.0 {
omp_get_num_teams_;
omp_get_team_num;
omp_get_team_num_;
+ omp_is_initial_device;
+ omp_is_initial_device_;
} OMP_3.1;
GOMP_1.0 {
@@ -908,6 +908,12 @@ omp_get_team_num (void)
return 0;
}
+int
+omp_is_initial_device (void)
+{
+ return 1;
+}
+
ialias (omp_set_dynamic)
ialias (omp_set_nested)
ialias (omp_set_num_threads)
@@ -926,3 +932,4 @@ ialias (omp_get_default_device)
ialias (omp_get_num_devices)
ialias (omp_get_num_teams)
ialias (omp_get_team_num)
+ialias (omp_is_initial_device)
@@ -92,3 +92,6 @@
external omp_get_team_num
integer(4) omp_get_default_device, omp_get_num_devices
integer(4) omp_get_num_teams, omp_get_team_num
+
+ external omp_is_initial_device
+ logical(4) omp_is_initial_device