在c_long中传输c_ptr（来自c_loc）

Question

我想获取c_loc指针的c_long值：

type(c_ptr)  :: ref
type(c_long) :: val
ref=c_loc(my_struct%data)
val=transfer(ref, c_long)

是不是错了？它似乎是我的bug的起源（随机出现）。

感谢。