[flang][cuda] Set value attribute to count for barrier procedures

Author: clementval

flang/module/cudadevice.f90

@@ -1992,7 +1992,7 @@ attributes(device,host) logical function on_device() bind(c)
   interface 
     attributes(device) subroutine barrier_init(barrier, count)
       integer(8), shared :: barrier
-      integer(4) :: count
+      integer(4), value :: count
     end subroutine
   end interface
 
@@ -2003,7 +2003,7 @@ attributes(device) function barrier_arrive(barrier) result(token)
     end function
     attributes(device) function barrier_arrive_cnt(barrier, count) result(token)
       integer(8), shared :: barrier
-      integer(4) :: count
+      integer(4), value :: count
       integer(8) :: token
     end function
   end interface