PGI User Forum

[crip_crop]

Hi there,

I managed to get the 12.10 update and have installed it. I'm not longer getting the

[brentl]

You'll have to show me how you use it. It works for me:

brentl@woodchuck:~/simple/cuda/qa> pgf90 -V12.10 -Mcuda=emu atomd2.cuf
brentl@woodchuck:~/simple/cuda/qa> ./a.out
32896.00000000000 32896.00000000000
TEST PASSED
brentl@woodchuck:~/simple/cuda/qa> cat atomd2.cuf
module atomictests
contains
attributes(global) subroutine testatomicdadd( a )
real*8, device :: a
real*8 r
r = dble((blockIdx%x-1) * blockDim%x + threadIdx%x)
istat = atomicadd(a, r)
return
end subroutine testatomicdadd
end module atomictests

program t
use cudafor
use atomictests
real*8, device :: r
real*8 x
n = 256
r = 0
call testatomicdadd<<<4,n/4>>> (r)
x = r
print *,x,dble(n*(n+1)/2)
if (x .eq. dble(n*(n+1)/2)) then
print *,"TEST PASSED"
else
print *,"TEST FAILED"
endif
end