TestRealArrVal Derived Type

  1. cafut.f90
  2. cafut
  3. TestRealArrVal

type, public, extends(Test) :: TestRealArrVal

Test performed on an array of real values.


Contents

Variables

Constructor

Finalization Procedures

Type-Bound Procedures

run

Source Code

TestRealArrVal

Components

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

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

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

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

Target real array result for some process.

Constructor

public interface TestRealArrVal

Constructor interface for a TestRealArrVal object.

  • public function newTestRealArrVal_name(ts_name) result(new_ts)

    Construct new TestRealArrVal given a name.

    Arguments

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

    Name of the new TestRealArrVal object.

    Return Value type(TestRealArrVal)

    Return new TestRealArrVal object.


Finalization Procedures

final :: deleteTestRealArrVal

  • public subroutine deleteTestRealArrVal(self)

    Destruct TestRealVal object by deallocating its next object pointer as well as its res and tgt arrays.

    Arguments

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

Type-Bound Procedures

procedure, public, pass :: run => runTestRealArrVal

  • public function runTestRealArrVal(self) result(tests_passed)

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

    Arguments

    Type IntentOptional AttributesName
    class(TestRealArrVal), 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) :: TestRealArrVal
        !! Test performed on an array of real values.

    procedure(realArrCompInterface), nopass, pointer :: compare
        !! Pointer to a comparisson function used to perform the test.

    real(kind=wp), public, allocatable, dimension(:) :: res
        !! Real array result from some process.
    real(kind=wp), public, allocatable, dimension(:) :: tgt
        !! Target real array result for some process.
contains
    procedure, public, pass :: run => runTestRealArrVal
    procedure, private, nopass :: printFail => printFailTestRealArrVal
    final :: deleteTestRealArrVal
end type TestRealArrVal