High-Performance Design Patterns for Modern Fortran

Listing 4

type, abstract:: object

 logical:: user_defined = .false.

contains

 procedure:: is_defined

 procedure:: mark_as_defined

end type