Mark the co_object as user-defined
Type | Intent | Optional | Attributes | Name | ||
---|---|---|---|---|---|---|
class(co_object), | intent(inout) | :: | this |
Return a boolean result indicating whether this co_object has been initialized since its declaration
Type | Intent | Optional | Attributes | Name | ||
---|---|---|---|---|---|---|
class(co_object), | intent(in) | :: | this |
Type | Visibility | Attributes | Name | Initial | |||
---|---|---|---|---|---|---|---|
logical, | private | :: | defined | = | .false. | Default initialization indicates not yet user-defined |
|
logical, | private, | allocatable | :: | facilitate_type_extension[:] |
procedure, public :: mark_as_defined | |
procedure, public :: user_defined |