TestRealVal Derived Type

  1. cafut.f90
  2. cafut
  3. TestRealVal

type, public, extends(Test) :: TestRealVal

Test performed on single real values.


Contents

Variables

Constructor

Finalization Procedures

Type-Bound Procedures

run

Source Code

TestRealVal

Components

TypeVisibility AttributesNameInitial
procedure(realCompInterface), public, nopass, pointer:: compare

Pointer to a comparisson function used to perform the test.
real(kind=wp), public :: res

Real value result from some process.
character(len=NAME_LENGTH), public :: test_name

Name of the test case.
real(kind=wp), public :: tgt

Target real value result for some process.

Constructor

public interface TestRealVal

Constructor interface for a TestRealVal object.

  • public function newTestRealVal_name(ts_name) result(new_ts)

    Construct new TestRealVal given a name.

    Arguments

    Type IntentOptional AttributesName
    character(len=*), intent(in) :: ts_name

    Name of the new TestRealVal object.

    Return Value type(TestRealVal)

    Return new TestRealVal object.


Finalization Procedures

final :: deleteTestRealVal

  • public subroutine deleteTestRealVal(self)

    Destruct TestRealVal object by deallocating its next object pointer.

    Arguments

    Type IntentOptional AttributesName
    type(TestRealVal), intent(inout) :: self

Type-Bound Procedures

procedure, public, pass :: run => runTestRealVal

  • public function runTestRealVal(self) result(tests_passed)

    Run test on real values and print summary report for images.

    Arguments

    Type IntentOptional AttributesName
    class(TestRealVal), intent(in) :: self

    Return Value integer

    Return the tests that passed up to and including this one in the linked list.

Source Code

type, public, extends(Test) :: TestRealVal
    !! Test performed on single real values.

    procedure(realCompInterface), public, nopass, pointer :: compare
        !! Pointer to a comparisson function used to perform the test.
    real(kind=wp), public :: res
        !! Real value result from some process.
    real(kind=wp), public :: tgt
        !! Target real value result for some process.
contains
    procedure, public, pass :: run => runTestRealVal
    procedure, private, nopass :: printFail => printFailTestRealVal
    final :: deleteTestRealVal
end type TestRealVal