我正在使用具有grid_f(g_size)的{{1}}数组的参数化类型real。 dimension(max0(something_1,something_2))编译器以某种方式不喜欢这样，导致内部错误。
ifort编译：
module mdl
implicit none
save
integer, parameter :: ng=10, dp=8
type grid_f(g_size)
integer, len :: g_size
real(dp), dimension(max0(2*g_size+10, g_size)) :: val
end type
contains
subroutine grid_reset(func)
implicit none
type(grid_f(ng)) :: func
func%val=0d0
end subroutine grid_reset_orb
end module mdl
改为使用ifort -c check.f90
check.f90(10): error #7974: An elemental intrinsic function here must be of type integer and each argument must be an initialization expression of type integer or character. [MAX0]
real(dp), dimension(max0(2*g_size+10, g_size)) :: val
--------------------------^
check.f90(17): internal error: Please visit 'http://www.intel.com/software/products/support' for assistance.
type(grid_f(ng)) :: func
^
[ Aborting due to internal error. ]
compilation aborted for check.f90 (code 1)
或max并没有帮助。有什么建议吗？
编辑：该主题现在位于Intel网站click上。尽管ifort16和ifort17应该是标准的，但这似乎是bug导致编译器崩溃并导致18和19m的错误。