[flang-commits] [flang] Preparing cudadevice.mod to be the same upstream and downstream. (PR #123099)

[Renaud Kauffmann via flang-commits]

https://github.com/Renaud-K created https://github.com/llvm/llvm-project/pull/123099

None

>From 2f4e9f614fd34c6c90662f97cd6b2728bd62da9b Mon Sep 17 00:00:00 2001
From: Renaud-K <rkauffmann at nvidia.com>
Date: Wed, 15 Jan 2025 09:54:48 -0800
Subject: [PATCH] Preparing cudadevice.mod to be the same upstream and
 downstream.

---
 flang/module/cudadevice.f90 | 5 ++++-
 1 file changed, 4 insertions(+), 1 deletion(-)

diff --git a/flang/module/cudadevice.f90 b/flang/module/cudadevice.f90
index b07f82be6a7243..5712a7724ae49d 100644
--- a/flang/module/cudadevice.f90
+++ b/flang/module/cudadevice.f90
@@ -9,7 +9,10 @@
 ! CUDA Fortran procedures available in device subprogram
 
 module cudadevice
-  use __cuda_device, only: __fadd_rd, __fadd_ru
+  use __cuda_device
+  use, intrinsic :: __fortran_builtins, only: dim3 => __builtin_dim3
+  use, intrinsic :: __fortran_builtins, only: c_devptr => __builtin_c_devptr
+  use, intrinsic :: __fortran_builtins, only: c_devloc => __builtin_c_devloc
 implicit none
 
   ! Set PRIVATE by default to explicitly only export what is meant