module m
implicit none
type :: t(n,m)
integer, len :: n
integer, len :: m
real :: x(n)
real :: y((m-1)*n) !.. real :: y(m*n - n) compiles ok
end type
contains
subroutine set(this)
!.. Argument list
type(t(*,*)), intent(inout) :: this
this%x = 0.0
this%y = 0.0
return
end subroutine set
end module m
------ Build started: Project: p, Configuration: Debug|Win32 ------
Compiling with Intel(R) Visual Fortran Compiler XE 15.0.2.179 [IA-32]...
m.f90
C:\..\m.f90(19): internal error: Please visit 'http://www.intel.com/software/products/support' for assistance.
type(t(*,*)), intent(inout) :: this
^
[ Aborting due to internal error. ]
compilation aborted for C:\..\m.f90 (code 1)