Может ли кто-нибудь привести пример того, как это должно быть для простого объектно-ориентированного макета Fortran 2003, эквивалентного этому коду C++:
stefanos-imac:tmp borini$ more Animal.h
class Animal {
public:
Animal(int age);
~Animal();
virtual void speak();
int getAge();
private:
int age;
};
stefanos-imac:tmp borini$ more Animal.cpp
#include <Animal.h>
#include <iostream>
Animal::Animal(int age) {
std::cout << "init animal" << age << std::endl;
this->age = age;
}
Animal::~Animal() {
std::cout << "dtor animal" << std::endl;
}
void Animal::speak() {
std::cout << "speak not reimplemented" << std::endl;
}
int Animal::getAge() {
return this->age;
}
stefanos-imac:tmp borini$ more Cat.h
#include <Animal.h>
class Cat : public Animal {
public:
Cat(int age);
~Cat();
virtual void speak();
};
stefanos-imac:tmp borini$ more Cat.cpp
#include <Cat.h>
#include <iostream>
Cat::Cat(int age) : Animal(age) {
std::cout << "init cat" << std::endl;
}
Cat::~Cat() {
std::cout << "dtor cat" << std::endl;
}
void Cat::speak() {
std::cout << "meow" << std::endl;
}
stefanos-imac:tmp borini$ more main.cpp
#include <iostream>
#include <Cat.h>
int main() {
Cat c(10);
std::cout << c.getAge() <<std::endl;
c.speak();
}
У меня проблемы с моим кодом, см. следующее
stefanos-imac:oop borini$ more Animal.f90
module AnimalModule
implicit none
private
public :: AnimalType
type :: AnimalType
private
integer :: age
contains
procedure :: getAge
procedure :: speak
final :: dtor
end type
interface AnimalType
module procedure ctor
end interface
contains
subroutine ctor(self, age)
type(AnimalType), intent(inout) :: self
integer :: age
print *, "Constructor Animal"
self%age = age
end subroutine
subroutine dtor(self)
type(AnimalType), intent(inout) :: self
print *, "Destroying animal"
end subroutine
function getAge(self)
class(AnimalType), intent(inout) :: self
integer :: getAge
getAge = self%age
end function
subroutine speak(self)
class(AnimalType), intent(in) :: self
print *, "Animal::speak not overridden"
end subroutine
end
stefanos-imac:oop borini$ more Cat.f90
module CatModule
use AnimalModule
implicit none
private
type, extends(AnimalType) :: CatType
private
contains
procedure :: speak
final :: dtor
end type
interface CatType
module procedure ctor
end interface
contains
subroutine ctor(self, age)
type(CatType), intent(inout) :: self
integer, intent(in) :: age
print *, "Constructor Cat"
self%AnimalType = AnimalType(age)
end subroutine
subroutine dtor(self)
type(CatType), intent(inout) :: self
print *, "Destroying Cat"
end subroutine
subroutine speak(self)
class(CatType), intent(in) :: self
print *, "Meow"
end subroutine
end
stefanos-imac:oop borini$ ifort Animal.f90 Cat.f90
Cat.f90(10): error #8341: Final subroutines are not inherited through type extension and cannot be overridden. [DTOR]
final :: dtor
---------------^
Cat.f90(22): error #6292: The parent type of this field is use associated with the PRIVATE fields attribute [AGE]
self%AnimalType = AnimalType(age)
-----------------------------------^
compilation aborted for Cat.f90 (code 1)
stefanos-imac:oop borini$
В частности, мне непонятно, как инициализировать базовый класс и как определить деструктор для производного класса.
Спасибо
