Ifort18.0或者gfrotran8.1中，定义的参数化派生类型应该如何all...

li913

我用ivf17.0, 这个功能好像还不健全。

[Fortran] 纯文本查看 复制代码

program test
type matrix(kind,n)
    integer, kind :: kind=kind(0.0d0)! gives a default value
    integer, len :: n ! no default value given
    real(kind) :: arr(n)
end type
type(matrix(kind=kind(0.0),n=2)) :: a
type(matrix(4,:)),allocatable :: b
a%arr = [1,2]
b=a
print*,b
a%arr = [3,4]
print*,b
pause
end program

li913

标准虽然提出来了，但是对编译器厂商而言：1、不一定能够实现；2、可选择性实现某些功能；3、暂时没有实现。