一个关于无类型指针的问题

lookbook

书上看到class(*)这么一个东西，
于是自己像下面这样使用


...

type(balabala) :: father

class(*),allocatable :: temp

allocate(temp,source=father)

...

但发觉死活不行，无论gfortran还是pgi

后来才领悟，原来class(*)类型的变量/指针只能在select type内使用。

突然觉得这东西局限很大啊，在此记录一笔，也供大家参考。

lookbook

liudy02 发表于 2019-7-3 07:31
我还没注意还有这个呢
你是原本以为可以有C里边void *那种神奇的功能？

是的，不过在select type内部可以。
轻量级的代码或许能行

lookbook

liudy02 发表于 2019-7-3 13:40
不懂，我现在渐渐觉得fortran确实没啥不可替代性了
似乎一般的数学库也都有C语言版了
甚至连python里的nu ...

你会多少种语言了？

lookbook

fcode 发表于 2019-7-3 18:10
class(*) 有挺多妙用的呀。
对于一些函数里不对输入数据进行操作，直接传递出去的，都可以用它。

谢谢绝地，
但这个代码在gfortran下测试并不成功，c_f_pointer不接受多态的指针，pgi是可以的，我猜ivf也是可以的吧。
还有请问为什么要用iso_c_binding？这段没有太明白。

后来我记起来了，fortran用父类指针也能实现一定的多态性质，只要顶层的接口设计好。

lookbook

liudy02 发表于 2019-7-3 22:53
难道不是c_f_pointer这个子进程属于iso_c_binding这个内部模块？

用父类确实可以实现一定程度的多态，但 ...

我的本意是为什么要用c_f_pointer这个函数

lookbook

weixing1531 发表于 2019-7-6 21:41
楼主的设想还是可以实现的
只是class(*)多态指针p的断开引用必须在select type内部才行     
  但Fortran20 ...

我没明白你的意思，看了下代码，这还是要在select type里才能进行操作(包括绑定的过程的调用)啊。