电话PGI运行时不支持的功能 - ！pgf90_copy_f77_argl_i8 我相信我传递一个8字节的整数参数澳元ACC程序。 任何解决方法或在此更新？ PGI编译器17.4 示例。 type some
integer(4),pointer :: xx(:)
integer(4),pointer :: yy(:)
end type
type(some), pointer :: dat
我需要生成大量的随机数（从零到1，均匀分布）。 我最初有一个Do循环，并在飞行中产生的随机数为这样： Real :: RandomN
Integer :: N
DO N = 1, 10000
Call RANDOM_NUMBER(RandomN)
... Some Code ...
ENDDO
然而，生成数字时（如果我评论了“呼叫RANDOM_NUMBER（我得到一个
我读过Fortran派生类型的手动深度复制是可能的，但下面的简单测试程序在运行时失败;程序与PGI v16.10完全编译。什么出错？ program Test
implicit none
type dt
integer :: n
real, dimension(:), allocatable :: xm
end type dt