Hello
The compilation of the following code with/opt/intel/Compiler/11.1/038/bin/ifort results in a catastrophic error:
[plain]module test_module
implicit none
private
public :: new_node
type, public :: routing_entry
integer :: dst
integer :: inter
integer :: next_hop
end type
type, public :: node
integer :: id
class (routing_entry), allocatable, dimension (:) :: routing_table
end type
integer, public, save :: node_id = 0
contains
function new_node (nbr_routing_entries) result (a_node)
integer, intent (in) :: nbr_routing_entries
type (node) :: a_node
node_id = node_id + 1
a_node % id = node_id
allocate (a_node % routing_table (nbr_routing_entries))
end function
end module
program test_program
use test_module
implicit none
class (node), allocatable :: a_node
allocate (a_node, source = new_node (1))
end program[/plain]
catastrophic error: **Internal compiler error: internal abort** Please report this error along with the circumstances in which it occurred in a Software Problem Report.
Thanks in advance
Ben
