From 2bb5ca537b4dfae9048cc1712147f13db7aa87f6 Mon Sep 17 00:00:00 2001 From: Renaud Kauffmann Date: Wed, 15 Jan 2025 14:04:15 -0800 Subject: [PATCH] Preparing cudadevice.mod to be the same upstream and downstream. (#123099) --- 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 b07f82be6a72..5712a7724ae4 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