[flang][OpenMP] Add missing implementation for 'omp_is_initial_device' (#83056)

mjklemm · web-flow · commit 99335a646bc0 · 2024-02-26T13:17:33.000-08:00
Resolve issue #82047
diff --git a/openmp/libomptarget/DeviceRTL/src/State.cpp b/openmp/libomptarget/DeviceRTL/src/State.cpp
@@ -426,6 +426,8 @@ int omp_get_num_teams(void) { return mapping::getNumberOfBlocksInKernel(); }
 int omp_get_team_num() { return mapping::getBlockIdInKernel(); }
 
 int omp_get_initial_device(void) { return -1; }
+
+int omp_is_initial_device(void) { return 0; }
 }
 
 extern "C" {

Original file line number	Diff line number	Diff line change
`@@ -426,6 +426,8 @@ int omp_get_num_teams(void) { return mapping::getNumberOfBlocksInKernel(); }`
`426`	`426`	`int omp_get_team_num() { return mapping::getBlockIdInKernel(); }`
`427`	`427`
`428`	`428`	`int omp_get_initial_device(void) { return -1; }`
	`429`	`+`
	`430`	`+int omp_is_initial_device(void) { return 0; }`
`429`	`431`	`}`
`430`	`432`
`431`	`433`	`extern "C" {`