找回密码
 立即注册
tsariner123 该用户已被删除
发表于 2013-7-26 19:39:29
9301
代码如下
module atest
contains
attributes(global) subroutine kerneltest(a,n)
integer,device::a(n)
integer,value::n
integer::i
i=threadIdx%x
a(i)=i
end subroutine
end module

program test
use cudafor
use atest
implicit none
integer,allocatable,target,device::a_d(
integer,pointer,device::b_d(
integer,parameter::n=512
integer,target::a(n)
integer,pointer::b(
integer::istat,i

!host 指针

do i=1,n
a(i)=i*i
end do
b=>a
do i=1,10
open(1,file= '../data/test.dat',status='unknown')
write(1,*)b(i)
end do

istat=cudafree(a_d)

end program
~
~在编译的时候总是出现
pgfortran -Mcuda=cuda3.0 kk.f90 -o ../bin/mod_b_test

PGF90-S-0134-Illegal attribute - conflict with device (kk.f90: 16)
PGF90-S-0134-Illegal attribute - conflict with device (kk.f90: 17)
请问该问题如何解决?
使用道具 举报 回复
发表于 2013-7-26 20:04:20
本论坛一般无法为fortran提供技术支持,

建议您跟您的pgi fortran销售代理咨询。

您的帖子可能被移动到灌水专区。
使用道具 举报 回复 支持 反对
发新帖
您需要登录后才可以回帖 登录 | 立即注册

zzczczxczxczx