Hi, I have a sample following code in which I am trying to test whether a certain object is extended from an abstract derived type. Here is the module: module my_module implicit none ! Abstract parent type type, abstract :: abstract_parent integer :: common_member end type abstract_p…

[image] nedanator: Here is the program: .. select type(obj2) type is(special_type) Try .. class is ( special_type )

Type is(extended from abstract)

alozada August 18, 2023, 11:16am 2

Perhaps this post might be useful.

1 Like

Topic		Replies	Views
Abstract type and derived types - a problem with sample code Help	6	1043	March 27, 2022
Call overridden procedure of abstract parent type Help	23	3080	January 30, 2021
A couple of (probably trivial) OOP questions	8	481	April 30, 2023
Parameterized derived types and type extensions Help	18	699	September 8, 2025
Extending derived bind(c) types	20	1274	September 25, 2023