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