From 3f4e4e0a12c523f3d794f015ca7f40bcfc0ed8f5 Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Valentin=20Clement=20=28=E3=83=90=E3=83=AC=E3=83=B3?= =?UTF-8?q?=E3=82=BF=E3=82=A4=E3=83=B3=20=E3=82=AF=E3=83=AC=E3=83=A1?= =?UTF-8?q?=E3=83=B3=29?= Date: Mon, 7 Apr 2025 18:21:07 -0700 Subject: [PATCH] [flang][cuda] Add on_device interface to cudadevice (#134747) --- flang/module/cudadevice.f90 | 5 +++++ 1 file changed, 5 insertions(+) diff --git a/flang/module/cudadevice.f90 b/flang/module/cudadevice.f90 index 591e25e4108b..9bd90bcfc30e 100644 --- a/flang/module/cudadevice.f90 +++ b/flang/module/cudadevice.f90 @@ -1609,4 +1609,9 @@ implicit none end subroutine end interface + interface + attributes(device,host) logical function on_device() bind(c) + end function + end interface + end module