Cray Pointer CHARACTER (512) :: buff INTEGER(C_SIZE_T)::ibuff ! optional ? ! C_SIZE_T = 8byte POINTER(ibuff, buff) ! nerr = cudaGetLastError() ibuff = cudaGetErrorString( nerr ) Fortran2003 呼び出し順序に注意する。C_PTR から F_PTR への一方…