Emulating Multiple Inheritance in Fortran 2003/2008

Listing 1

Implementation for object_distribution class.

(1)   module object_distribution_concrete

(2)    implicit none

(3)    private

(4)    public:: object_distribution

(5)    type:: object_distribution

(6)     contains

(7)      procedure:: import

(8)    end type

(9)     contains

(10)   subroutine import(this)

(11)      class(object_distribution), intent(in):: this

(12)      print , ‘ImportDataFunctionality’

(13)   end subroutine

(14)  end module