diff --git a/flang/module/cudadevice.f90 b/flang/module/cudadevice.f90
index 9bd90bcfc30e..f8a30da8b961 100644
--- a/flang/module/cudadevice.f90
+++ b/flang/module/cudadevice.f90
@@ -17,9 +17,8 @@ implicit none
 
   ! Synchronization Functions
 
-  interface
-    attributes(device) subroutine syncthreads()
-    end subroutine
+  interface syncthreads
+    procedure :: syncthreads
   end interface
 
   interface
@@ -1614,4 +1613,9 @@ implicit none
     end function
   end interface
 
+contains
+
+  attributes(device) subroutine syncthreads()
+  end subroutine
+
 end module