sp_reference_counter_t Derived Type

type, public :: sp_reference_counter_t

Inherits

Inherited by

Contents

Variables

count_ object_

Constructor

sp_reference_counter_t

Finalization Procedures

finalize

Type-Bound Procedures

assign_sp_reference_counter assignment(=) grab reference_count release

Components

Type	Visibility	Attributes		Name		Initial
integer,	private,	pointer	::	count_	=>	null()
class(sp_resource_t),	private,	pointer	::	object_	=>	null()

Constructor

public interface sp_reference_counter_t

private module function construct(object) result(sp_reference_counter)

Arguments

Type Intent Optional Attributes Name

class(sp_resource_t), intent(in) :: object

Return Value type(sp_reference_counter_t)

Finalization Procedures

final :: finalize

private subroutine finalize(self)

Arguments

Type Intent Optional Attributes Name

type(sp_reference_counter_t), intent(inout) :: self

Type-Bound Procedures

procedure, public :: assign_sp_reference_counter

interface

private module module subroutine assign_sp_reference_counter(lhs, rhs)

Arguments

Type Intent Optional Attributes Name

class(sp_reference_counter_t), intent(inout) :: lhs

class(sp_reference_counter_t), intent(in) :: rhs

generic, public :: assignment(=) => assign_sp_reference_counter

private interface assign_sp_reference_counter()

Arguments
None

procedure, public, non_overridable :: grab

interface

private module module subroutine grab(self)

Arguments

Type Intent Optional Attributes Name

class(sp_reference_counter_t), intent(inout) :: self

procedure, public :: reference_count

interface

private pure module module function reference_count(self) result(counter)

Arguments

Type Intent Optional Attributes Name

class(sp_reference_counter_t), intent(in) :: self

Return Value integer

procedure, public, non_overridable :: release

interface

private module module subroutine release(self)

Arguments

Type Intent Optional Attributes Name

class(sp_reference_counter_t), intent(inout) :: self