[flang-commits] [flang] 78b363c - [flang][cuda] Set value attribute to count for barrier procedures (#163031)

[via flang-commits]

Author: Valentin Clement (バレンタイン クレメン)
Date: 2025-10-11T20:07:52-07:00
New Revision: 78b363ce1d35e8617c79e9c85acb4ac5db044082

URL: https://github.com/llvm/llvm-project/commit/78b363ce1d35e8617c79e9c85acb4ac5db044082
DIFF: https://github.com/llvm/llvm-project/commit/78b363ce1d35e8617c79e9c85acb4ac5db044082.diff

LOG: [flang][cuda] Set value attribute to count for barrier procedures (#163031)

Added: 
    

Modified: 
    flang/module/cudadevice.f90

Removed: 
    


################################################################################
diff  --git a/flang/module/cudadevice.f90 b/flang/module/cudadevice.f90
index 106f3e20aeaee..db20685ef724b 100644
--- a/flang/module/cudadevice.f90
+++ b/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