Hello,
learning Fortran I wrote simple code to test deferred bindings and abstract types.
ifort 11.1/073 does not like it : catastrophic error: **Internal compiler error: segmentation violation signal raised**
Is there something I could do on my side ?
Best regards.
Marc
module pointModule
implicit none
type, abstract :: pointGen
contains
procedure ( computeDistanceProto ) , deferred :: computeDistance
end type pointGen
type, extends( pointGen) :: point2d
real :: x,y
contains
procedure :: computeDistance => computeDistance2d
end type point2d
abstract interface
function computeDistanceProto( self ) result(distance)
import :: pointGen
class(pointGen) :: self
real :: distance
end function computeDistanceProto
end interface
contains
function computeDistance2d( self ) result(distance)
class(point2d) :: self
real :: distance
distance = sqrt( self%x*self%x + self%y*self%y )
end function computeDistance2d
end module pointModule
program letest
use pointModule
implicit none
real :: distance
type(point2d) :: monPoint
monPoint = point2d(2.3, 4.2)
distance = monPoint%computeDistance()
end program letest
