Question

我正在教自己Fortran 2003用于我正在研究的研究项目。我已经习惯了Fortran 90，但是这个项目需要使用参数化类型，因此我将继续使用2003年。

我正在关注如何定义参数化类型的this site's描述，并根据网站的示例编写了一个非常简单的示例程序来测试它：

module example
implicit none

  type :: param_matrix(k,a,b)
     integer, kind :: k
     integer, len :: a
     integer, len :: b
     real(kind=k), dimension(a,b) :: m
  end type param_matrix

end module example

当我用命令

编译它时

gfortran -c test.F03

我收到了错误

test.F03:4.2:

  type :: param_matrix(k, a, b)

  1

Error: Unclassifiable statement at (1)

test.F03:5.13:

     integer, kind :: k

             1

Error: Invalid character in name at (1)

test.F03:6.13:

     integer, len :: a

             1

Error: Invalid character in name at (1)

test.F03:7.13:

     integer, len :: b

             1

Error: Invalid character in name at (1)

test.F03:8.16:

     real(kind=k), dimension(a,b) :: m

                1

Error: Symbol 'k' at (1) has no IMPLICIT type

test.F03:9.5:

  end type param_matrix

     1

Error: Expecting END MODULE statement at (1)

当我删除公式的参数化部分时，它编译得很好（也就是说，它识别出类型）。对Fortran 2003特有的东西似乎有特别的麻烦，但是当我使用命令

运行时

-std=f2003

它仍然有同样的问题。可能会发生什么？

Answer 1

参数化派生类型尚未在gfortran中实现：

https://gcc.gnu.org/wiki/OOP（请参阅未实现的功能）

目前，只有Cray，PGI和IBM Fortran编译器支持此功能：

http://fortranwiki.org/fortran/show/Fortran+2003+status

Fortran 2003中参数化派生类型的问题

1 个答案: