co_object Derived Type

type, public, abstract :: co_object


Components

Type Visibility Attributes Name Initial
logical, private :: defined = .false.

Default initialization indicates not yet user-defined
logical, private, allocatable :: facilitate_type_extension[:]

Type-Bound Procedures

procedure, public :: mark_as_defined

  • interface

    private pure module subroutine mark_as_defined(self)

    Mark the co_object as user-defined

    Arguments

    Type IntentOptional Attributes Name
    class(co_object), intent(inout) :: self

procedure, public :: user_defined

  • interface

    private pure module function user_defined(self) result(is_defined)

    Return a boolean result indicating whether self co_object has been initialized since its declaration

    Arguments

    Type IntentOptional Attributes Name
    class(co_object), intent(in) :: self

    Return Value logical