test_diagnosis_t Derived Type

type, public :: test_diagnosis_t

Encapsulate test outcome and diagnostic information


Inherited by

type~~test_diagnosis_t~~InheritedByGraph type~test_diagnosis_t test_diagnosis_t type~test_result_t test_result_t type~test_result_t->type~test_diagnosis_t diagnosis_

Components

Type Visibility Attributes Name Initial
character(len=:), private, allocatable :: diagnostics_string_
logical, private :: test_passed_ = .false.

Constructor

public interface test_diagnosis_t

  • private elemental module function construct_from_character(test_passed, diagnostics_string) result(test_diagnosis)

    The result is a test_diagnosis_t object with the components defined by the dummy arguments

    Arguments

    Type IntentOptional Attributes Name
    logical, intent(in) :: test_passed
    character(len=*), intent(in) :: diagnostics_string

    Return Value type(test_diagnosis_t)

  • private elemental module function construct_from_string_t(test_passed, diagnostics_string) result(test_diagnosis)

    The result is a test_diagnosis_t object with the components defined by the dummy arguments

    Arguments

    Type IntentOptional Attributes Name
    logical, intent(in) :: test_passed
    type(string_t), intent(in) :: diagnostics_string

    Return Value type(test_diagnosis_t)


Type-Bound Procedures

procedure, public, non_overridable :: diagnostics_string

  • interface

    private pure module function diagnostics_string(self) result(string)

    The result is a string describing the condition(s) that caused a test failure or is a zero-length string if no failure

    Arguments

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

    Return Value character(len=:), allocatable

procedure, public, non_overridable :: test_passed

  • interface

    private elemental module function test_passed(self) result(passed)

    The result is .true. if the test passed on the executing image and false otherwise

    Arguments

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

    Return Value logical