unit_test Derived Type

type, public :: unit_test


Components

Type Visibility Attributes Name Initial
character(len=38), public :: msg

Type-Bound Procedures

procedure, private :: print_msg

  • private subroutine print_msg(this, condition)

    Author
    Seyed Ali Ghasemi

    Arguments

    Type IntentOptional Attributes Name
    class(unit_test), intent(inout) :: this
    logical, intent(in) :: condition

procedure, private :: unit_test_r0

  • private subroutine unit_test_r0(this, res, expected, tol, msg)

    Author
    Seyed Ali Ghasemi

    Arguments

    Type IntentOptional Attributes Name
    class(unit_test), intent(inout) :: this
    real(kind=rk), intent(in) :: res
    real(kind=rk), intent(in) :: expected
    real(kind=rk), intent(in), optional :: tol
    character(len=*), intent(in), optional :: msg

procedure, private :: unit_test_r1

  • private subroutine unit_test_r1(this, res, expected, tol, msg)

    Author
    Seyed Ali Ghasemi

    Arguments

    Type IntentOptional Attributes Name
    class(unit_test), intent(inout) :: this
    real(kind=rk), intent(in), dimension(:) :: res
    real(kind=rk), intent(in), dimension(:) :: expected
    real(kind=rk), intent(in), optional :: tol
    character(len=*), intent(in), optional :: msg

procedure, private :: unit_test_r2

  • private subroutine unit_test_r2(this, res, expected, tol, msg)

    Author
    Seyed Ali Ghasemi

    Arguments

    Type IntentOptional Attributes Name
    class(unit_test), intent(inout) :: this
    real(kind=rk), intent(in), dimension(:,:) :: res
    real(kind=rk), intent(in), dimension(:,:) :: expected
    real(kind=rk), intent(in), optional :: tol
    character(len=*), intent(in), optional :: msg

procedure, private :: unit_test_i0

  • private subroutine unit_test_i0(this, res, expected, msg)

    Author
    Seyed Ali Ghasemi

    Arguments

    Type IntentOptional Attributes Name
    class(unit_test), intent(inout) :: this
    integer, intent(in) :: res
    integer, intent(in) :: expected
    character(len=*), intent(in), optional :: msg

procedure, private :: unit_test_i1

  • private subroutine unit_test_i1(this, res, expected, msg)

    Author
    Seyed Ali Ghasemi

    Arguments

    Type IntentOptional Attributes Name
    class(unit_test), intent(inout) :: this
    integer, intent(in), dimension(:) :: res
    integer, intent(in), dimension(:) :: expected
    character(len=*), intent(in), optional :: msg

procedure, private :: unit_test_i2

  • private subroutine unit_test_i2(this, res, expected, msg)

    Author
    Seyed Ali Ghasemi

    Arguments

    Type IntentOptional Attributes Name
    class(unit_test), intent(inout) :: this
    integer, intent(in), dimension(:,:) :: res
    integer, intent(in), dimension(:,:) :: expected
    character(len=*), intent(in), optional :: msg

procedure, private :: unit_test_l0

  • private subroutine unit_test_l0(this, res, expected, msg)

    Author
    Seyed Ali Ghasemi

    Arguments

    Type IntentOptional Attributes Name
    class(unit_test), intent(inout) :: this
    logical, intent(in) :: res
    logical, intent(in) :: expected
    character(len=*), intent(in), optional :: msg

procedure, private :: unit_test_l1

  • private subroutine unit_test_l1(this, res, expected, msg)

    Author
    Seyed Ali Ghasemi

    Arguments

    Type IntentOptional Attributes Name
    class(unit_test), intent(inout) :: this
    logical, intent(in), dimension(:) :: res
    logical, intent(in), dimension(:) :: expected
    character(len=*), intent(in), optional :: msg

procedure, private :: unit_test_l2

  • private subroutine unit_test_l2(this, res, expected, msg)

    Author
    Seyed Ali Ghasemi

    Arguments

    Type IntentOptional Attributes Name
    class(unit_test), intent(inout) :: this
    logical, intent(in), dimension(:,:) :: res
    logical, intent(in), dimension(:,:) :: expected
    character(len=*), intent(in), optional :: msg

procedure, private :: unit_test_cx0

  • private subroutine unit_test_cx0(this, res, expected, tol, msg)

    Author
    Seyed Ali Ghasemi

    Arguments

    Type IntentOptional Attributes Name
    class(unit_test), intent(inout) :: this
    complex(kind=rk), intent(in) :: res
    complex(kind=rk), intent(in) :: expected
    real(kind=rk), intent(in), optional :: tol
    character(len=*), intent(in), optional :: msg

procedure, private :: unit_test_cx1

  • private subroutine unit_test_cx1(this, res, expected, tol, msg)

    Author
    Seyed Ali Ghasemi

    Arguments

    Type IntentOptional Attributes Name
    class(unit_test), intent(inout) :: this
    complex(kind=rk), intent(in), dimension(:) :: res
    complex(kind=rk), intent(in), dimension(:) :: expected
    real(kind=rk), intent(in), optional :: tol
    character(len=*), intent(in), optional :: msg

procedure, private :: unit_test_cx2

  • private subroutine unit_test_cx2(this, res, expected, tol, msg)

    Author
    Seyed Ali Ghasemi

    Arguments

    Type IntentOptional Attributes Name
    class(unit_test), intent(inout) :: this
    complex(kind=rk), intent(in), dimension(:,:) :: res
    complex(kind=rk), intent(in), dimension(:,:) :: expected
    real(kind=rk), intent(in), optional :: tol
    character(len=*), intent(in), optional :: msg

generic, public :: check => unit_test_r0, unit_test_r1, unit_test_r2, unit_test_i0, unit_test_i1, unit_test_i2, unit_test_l0, unit_test_l1, unit_test_l2, unit_test_cx0, unit_test_cx1, unit_test_cx2

  • private subroutine unit_test_r0(this, res, expected, tol, msg)

    Author
    Seyed Ali Ghasemi

    Arguments

    Type IntentOptional Attributes Name
    class(unit_test), intent(inout) :: this
    real(kind=rk), intent(in) :: res
    real(kind=rk), intent(in) :: expected
    real(kind=rk), intent(in), optional :: tol
    character(len=*), intent(in), optional :: msg

  • private subroutine unit_test_r1(this, res, expected, tol, msg)

    Author
    Seyed Ali Ghasemi

    Arguments

    Type IntentOptional Attributes Name
    class(unit_test), intent(inout) :: this
    real(kind=rk), intent(in), dimension(:) :: res
    real(kind=rk), intent(in), dimension(:) :: expected
    real(kind=rk), intent(in), optional :: tol
    character(len=*), intent(in), optional :: msg

  • private subroutine unit_test_r2(this, res, expected, tol, msg)

    Author
    Seyed Ali Ghasemi

    Arguments

    Type IntentOptional Attributes Name
    class(unit_test), intent(inout) :: this
    real(kind=rk), intent(in), dimension(:,:) :: res
    real(kind=rk), intent(in), dimension(:,:) :: expected
    real(kind=rk), intent(in), optional :: tol
    character(len=*), intent(in), optional :: msg

  • private subroutine unit_test_i0(this, res, expected, msg)

    Author
    Seyed Ali Ghasemi

    Arguments

    Type IntentOptional Attributes Name
    class(unit_test), intent(inout) :: this
    integer, intent(in) :: res
    integer, intent(in) :: expected
    character(len=*), intent(in), optional :: msg

  • private subroutine unit_test_i1(this, res, expected, msg)

    Author
    Seyed Ali Ghasemi

    Arguments

    Type IntentOptional Attributes Name
    class(unit_test), intent(inout) :: this
    integer, intent(in), dimension(:) :: res
    integer, intent(in), dimension(:) :: expected
    character(len=*), intent(in), optional :: msg

  • private subroutine unit_test_i2(this, res, expected, msg)

    Author
    Seyed Ali Ghasemi

    Arguments

    Type IntentOptional Attributes Name
    class(unit_test), intent(inout) :: this
    integer, intent(in), dimension(:,:) :: res
    integer, intent(in), dimension(:,:) :: expected
    character(len=*), intent(in), optional :: msg

  • private subroutine unit_test_l0(this, res, expected, msg)

    Author
    Seyed Ali Ghasemi

    Arguments

    Type IntentOptional Attributes Name
    class(unit_test), intent(inout) :: this
    logical, intent(in) :: res
    logical, intent(in) :: expected
    character(len=*), intent(in), optional :: msg

  • private subroutine unit_test_l1(this, res, expected, msg)

    Author
    Seyed Ali Ghasemi

    Arguments

    Type IntentOptional Attributes Name
    class(unit_test), intent(inout) :: this
    logical, intent(in), dimension(:) :: res
    logical, intent(in), dimension(:) :: expected
    character(len=*), intent(in), optional :: msg

  • private subroutine unit_test_l2(this, res, expected, msg)

    Author
    Seyed Ali Ghasemi

    Arguments

    Type IntentOptional Attributes Name
    class(unit_test), intent(inout) :: this
    logical, intent(in), dimension(:,:) :: res
    logical, intent(in), dimension(:,:) :: expected
    character(len=*), intent(in), optional :: msg

  • private subroutine unit_test_cx0(this, res, expected, tol, msg)

    Author
    Seyed Ali Ghasemi

    Arguments

    Type IntentOptional Attributes Name
    class(unit_test), intent(inout) :: this
    complex(kind=rk), intent(in) :: res
    complex(kind=rk), intent(in) :: expected
    real(kind=rk), intent(in), optional :: tol
    character(len=*), intent(in), optional :: msg

  • private subroutine unit_test_cx1(this, res, expected, tol, msg)

    Author
    Seyed Ali Ghasemi

    Arguments

    Type IntentOptional Attributes Name
    class(unit_test), intent(inout) :: this
    complex(kind=rk), intent(in), dimension(:) :: res
    complex(kind=rk), intent(in), dimension(:) :: expected
    real(kind=rk), intent(in), optional :: tol
    character(len=*), intent(in), optional :: msg

  • private subroutine unit_test_cx2(this, res, expected, tol, msg)

    Author
    Seyed Ali Ghasemi

    Arguments

    Type IntentOptional Attributes Name
    class(unit_test), intent(inout) :: this
    complex(kind=rk), intent(in), dimension(:,:) :: res
    complex(kind=rk), intent(in), dimension(:,:) :: expected
    real(kind=rk), intent(in), optional :: tol
    character(len=*), intent(in), optional :: msg

Source Code

   type unit_test
      character(len=38) :: msg
   contains
      procedure, private :: print_msg

      procedure, private :: unit_test_r0
      procedure, private :: unit_test_r1
      procedure, private :: unit_test_r2

      procedure, private :: unit_test_i0
      procedure, private :: unit_test_i1
      procedure, private :: unit_test_i2

      procedure, private :: unit_test_l0
      procedure, private :: unit_test_l1
      procedure, private :: unit_test_l2

      procedure, private :: unit_test_cx0
      procedure, private :: unit_test_cx1
      procedure, private :: unit_test_cx2

      generic :: check => unit_test_r0, unit_test_r1, unit_test_r2, &
         unit_test_i0, unit_test_i1, unit_test_i2, &
         unit_test_l0, unit_test_l1, unit_test_l2, &
         unit_test_cx0, unit_test_cx1, unit_test_cx2
   end type unit_test