CUDA FORTRAN：函数给出不同的答案，如果我通过变量而不是数字

Question

我试图用ISHFT()函数来使用CUDA FORTRAN并行地移位一些32位整数。

问题是我对ISHFT(-4,-1)和ISHFT(var,-1)得到了不同的答案，尽管var = -4。这是测试代码，我已经写了：

module testshift 

    integer :: test 
    integer, device :: d_test 

contains 

    attributes(global) subroutine testshft() 
    integer :: var 
    var = -4 
    d_test = ISHFT(var,-1) 
    end subroutine testshft 

end module testshift 

program foo 
    use testshift 

    integer :: i 
    call testshft<<<1,1>>>() ! carry out ishft on gpu 
    test = d_test   ! copy device result to host 
    i = ISHFT(-4,-1)   ! carry out ishft on cpu 
    print *, i, test   ! print the results 
end program foo 

我然后编译并执行：

pgf90 testishft.f90 -Mcuda 
./a.out 
    2147483646   -2 

两个应该是2147483646，如果工作正常。如果我用4代替var，我会得到正确的答案。

我该如何解决这个问题？ 感谢您的帮助

Answer 1

我找到了一个解决办法，这是张贴在这个论坛： http://www.pgroup.com/userforum/viewtopic.php?t=2455&postdays=0&postorder=asc&start=15

而不是使用ISHFT我用IBITS，这是这里所描述的：http://gcc.gnu.org/onlinedocs/gfortran/IBITS.html

而且这个问题已经被修复版本11.3的PGI编译器 http://www.pgroup.com/support/release_tprs_2011.htm

Answer 2

当我从上述程序中删除特定于GPU的代码时，我会从g95编译器中获得2147483646 2147483646，如您所愿。您是否曾尝试使用pgf90编译器运行该程序的“标量”版本？如果标量版本正常工作，但GPU版本不起作用，这有助于隔离问题。如果问题是pgf90/CUDA特定的，或许最好的地方问你的问题是

PGI用户论坛首页 - >编程和编译 http://www.pgroup.com/userforum/viewforum.php?f=4。