diff --git a/flang/module/cudadevice.f90 b/flang/module/cudadevice.f90
index 591e25e4108b2..9bd90bcfc30ec 100644
--- a/flang/module/cudadevice.f90
+++ b/flang/module/cudadevice.f90
@@ -1609,4 +1609,9 @@ attributes(device) integer function ballot_sync(mask, pred)
     end subroutine
   end interface
 
+  interface
+    attributes(device,host) logical function on_device() bind(c)
+    end function
+  end interface
+
 end module