I currently have an array of bearings with an integer enumerator to tell me what type of bearing they are. I want to use inheritance using subclasses for the bearing types. How can I continue to store an array of these mixed types of bearings?
This code is inteded to define the array someBearings:
type Bearing
real :: contactAngle
end type
type, extends(Bearing) :: BallBearing
real ballDiameter
end type
type, extends(Bearing) :: RollerBearing
real rollerCrownRadius
end type
type BearingPointer
class(Bearing), pointer :: item => null()
end type
type(BearingPointer), allocatable :: someBearings(:)
The code fails on the class component.
