[Openmp-commits] [openmp] [flang][OpenMP] Add missing implementation for 'omp_is_initial_device' (PR #83056)

[Michael Klemm via Openmp-commits]

https://github.com/mjklemm created https://github.com/llvm/llvm-project/pull/83056

Resolve issue #82047 

>From 2fa950a26c97d081ddea925c1f84dabc25ce8046 Mon Sep 17 00:00:00 2001
From: Michael Klemm <michael.klemm at amd.com>
Date: Mon, 26 Feb 2024 21:46:11 +0100
Subject: [PATCH] Add missing implementation for 'omp_is_initial_device'

---
 openmp/libomptarget/DeviceRTL/src/State.cpp | 2 ++
 1 file changed, 2 insertions(+)

diff --git a/openmp/libomptarget/DeviceRTL/src/State.cpp b/openmp/libomptarget/DeviceRTL/src/State.cpp
index 40f99e07b44c1c..a1e4fa2449d9a2 100644
--- 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" {