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	957	March 27, 2022
Extension and assigning of type results in GNU internal compiler error Help	1	349	October 19, 2022
Custom operators in extended type Help	3	680	April 21, 2021
Passed-object dummy argument of a procedure pointer component in an extending type Help	3	617	January 2, 2023
How to correctly use type extension and polymorphism? Homework	24	2842	December 3, 2021