forunittest Module


Uses

  • module~~forunittest~~UsesGraph module~forunittest forunittest iso_fortran_env iso_fortran_env module~forunittest->iso_fortran_env

Used by

  • module~~forunittest~~UsedByGraph module~forunittest forunittest program~demo demo program~demo->module~forunittest program~test test program~test->module~forunittest

Variables

Type Visibility Attributes Name Initial
integer, public, parameter :: ik = int32
integer, public, parameter :: rk = selected_real_kind(6)
integer, private, parameter :: rk = selected_real_kind(15)
integer, private, parameter :: rk = selected_real_kind(18)
integer, private, parameter :: rk = selected_real_kind(33)
integer, private, parameter :: rk = selected_real_kind(15)

Derived Types

type, public ::  unit_test

Components

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

Type-Bound Procedures

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
procedure, private :: print_msg
procedure, private :: unit_test_cx0
procedure, private :: unit_test_cx1
procedure, private :: unit_test_cx2
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_r0
procedure, private :: unit_test_r1
procedure, private :: unit_test_r2

Subroutines

private subroutine print_msg(this, condition)

Author
Seyed Ali Ghasemi
License
BSD 3-Clause

Arguments

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

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

Author
Seyed Ali Ghasemi
License
BSD 3-Clause

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
License
BSD 3-Clause

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
License
BSD 3-Clause

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_i0(this, res, expected, msg)

Author
Seyed Ali Ghasemi
License
BSD 3-Clause

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
License
BSD 3-Clause

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
License
BSD 3-Clause

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
License
BSD 3-Clause

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
License
BSD 3-Clause

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
License
BSD 3-Clause

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_r0(this, res, expected, tol, msg)

Author
Seyed Ali Ghasemi
License
BSD 3-Clause

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
License
BSD 3-Clause

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
License
BSD 3-Clause

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