forunittest Module

Uses

- kinds
Help

Graph Key

Nodes of different colours represent the following:

Solid arrows point from a submodule to the (sub)module which it is descended from. Dashed arrows point from a module or program unit to modules which it uses.
Where possible, edges connecting nodes are given different colours to make them easier to distinguish in large graphs.

Used by

Help

Graph Key

Nodes of different colours represent the following:

Solid arrows point from a submodule to the (sub)module which it is descended from. Dashed arrows point from a module or program unit to modules which it uses.
Where possible, edges connecting nodes are given different colours to make them easier to distinguish in large graphs.

Derived Types

type, public :: unit_test

Components

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

Type-Bound Procedures

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, 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

Subroutines

private subroutine print_msg(this, condition)

Author: Seyed Ali Ghasemi

Arguments

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

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

Author: Seyed Ali Ghasemi

Arguments

Type	Intent	Optional	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	Intent	Optional	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	Intent	Optional	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	Intent	Optional	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	Intent	Optional	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	Intent	Optional	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	Intent	Optional	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	Intent	Optional	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	Intent	Optional	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	Intent	Optional	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	Intent	Optional	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	Intent	Optional	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