Hello,
the following Code results in an ICE:
module M_MODULE
implicit none
type T_WRAP
integer :: w
end type
type, public :: T_MATRIX(k, n)
integer, len :: k = 2
integer, len :: n = 2
real, dimension(k,n) :: m
end type
contains
! This subroutine gives an ICE
subroutine foo_ice(bar)
type(T_WRAP) :: bar
type(T_MATRIX(bar%w, 2)) :: A
end subroutine
subroutine foo_works(bar)
integer :: bar
type(T_MATRIX(bar, 2)) :: A
end subroutine
end module M_MODULE
Compiler: Ifort 17.0 on Windows 32bit and 64bit
This Code compiles and works with ifort 16.3 and 16.4 as intended.
Greetings
Wolf
