Destroy error.
| Type | Intent | Optional | Attributes | Name | ||
|---|---|---|---|---|---|---|
| class(error_object), | intent(inout) | :: | self | Error object. |
elemental subroutine destroy(self)
!< Destroy error.
class(error_object), intent(inout) :: self !< Error object.
type(error_object) :: fresh !< Fresh instance of error object.
self = fresh
if (allocated(self%message)) deallocate(self%message)
endsubroutine destroy