failed Function

private pure function failed(me)

Returns True if an exception has been raised.

Type Bound

Arguments

Type	Intent	Optional	Attributes		Name
class(numdiff_type),	intent(in)			::	me

Return Value logical

Source Code

    pure logical function failed(me)

    implicit none

    class(numdiff_type),intent(in) :: me

    failed = me%exception_raised

    end function failed