Community
cancel
Showing results for 
Search instead for 
Did you mean: 
Highlighted
New Contributor I
23 Views

ICE with ifort 17.0 and parameterized derived types

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

0 Kudos
2 Replies
Highlighted
23 Views

Thanks, we'll check it out.

0 Kudos
Highlighted
23 Views

Escalated as DPD200415062.

0 Kudos