[flang][cuda] Add on_device interface to cudadevice (#134747)

2025-04-07 18:21:07 -07:00
parent bb1f32ded0
commit 3f4e4e0a12
1 changed files with 5 additions and 0 deletions
--- 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