internal compiler error

[MR]

Dear group,
the attached code produces an ice:

$ ifort -V
Intel Fortran Compiler for applications running on Intel 64, Version 10.1
Build 20080602

$ ifort mod_sympoly.f90
fortcom: Severe: **Internal compiler error: segmentation violation signal raised** Please report this error along with the circumstances in which it occurred in a Software Problem Report. Note: File and line given may not be explicit cause of this error.

compilation aborted for mod_sympoly.f90 (code 3)

Best regards,
Marco Restelli


module mod_kinds

implicit none

public :: wp

private

integer, parameter :: wp = selected_real_kind(12,307)

end module mod_kinds


!-----------------------------------------------------------------------


module mod_symmon

use mod_kinds, only: &
wp

implicit none

public :: &
t_symmon, &
operator(*)

private

type t_symmon
real(wp) :: coeff
end type t_symmon

interface operator(*)
module procedure mult
end interface

contains

elemental function mult(m1,m2) result(m)
type(t_symmon), intent(in) :: m1, m2
type(t_symmon) :: m

m%coeff = 1.0_wp

end function mult

end module mod_symmon


!-----------------------------------------------------------------------


module mod_sympoly

use mod_kinds, only: &
wp

use mod_symmon, only: &
t_symmon, &
operator(*)

!-----------------------------------------------------------------------

implicit none

!-----------------------------------------------------------------------

public :: &
t_symmon, &
t_sympol, &
operator(*)

private

!-----------------------------------------------------------------------

type t_sympol
integer :: nmon
end type t_sympol

interface operator(*)
module procedure mult, mult_scal
end interface

interface sympoly2pascal
module procedure sympoly2pascal_xy
end interface

!-----------------------------------------------------------------------

contains

pure function sympoly_pascal_xy(pascal_coeff) result(p)

real(wp), intent(in) :: pascal_coeff(:,:)
type(t_sympol) :: p

type(t_symmon) :: &
temp( (size(pascal_coeff,1)*(size(pascal_coeff,1)+1))/2 )

end function sympoly_pascal_xy

end module mod_sympoly

[Kevin_D_Intel]

Thank you for reporting this internal error Marco. Thank you for the concise test case and for noting the compiler used. I reproduced the error and will forward this to the developers and post an update with any new information I receive.

(Internal ref. CQ-48105)

[Kevin_D_Intel]

This internal compiler error is fixed in the 11.0 compiler updates 11.0.074 (Linux) /11.0.056 (Mac OS)