deleteTestRealVal Subroutine

public subroutine deleteTestRealVal(self)

Destruct TestRealVal object by deallocating its next object pointer.

Arguments

Type	Intent	Optional	Attributes		Name
type(TestRealVal),	intent(inout)			::	self

Contents

Source Code

deleteTestRealVal

Source Code

subroutine deleteTestRealVal(self) 
    !! Destruct TestRealVal object by deallocating its next object pointer.

    type(TestRealVal), intent(inout) :: self
    deallocate(self%next)
end subroutine deleteTestRealVal