assert_equal Interface

testcase subroutines
23 statements
Source File

public interface assert_equal

Test that var1 and var2 are equal. If the values do not compare equal, the test will fail.

assert_equal invokes one of the following subroutines according to the number or type of arguments.

Module Procedures

private subroutine assert_eq_logical_(var1, var2, message, status)

Arguments

Type	Intent	Optional	Attributes		Name
logical,	intent(in)			::	var1
logical,	intent(in)			::	var2
character(len=*),	intent(in),	optional		::	message
logical,	intent(out),	optional		::	status

private subroutine assert_eq_1d_logical_(var1, var2, message, status)

Arguments

Type	Intent	Optional	Attributes		Name
logical,	intent(in),		dimension(:)	::	var1
logical,	intent(in),		dimension(:)	::	var2
character(len=*),	intent(in),	optional		::	message
logical,	intent(out),	optional		::	status

private subroutine assert_eq_2d_logical_(var1, var2, message, status)

Arguments

Type	Intent	Optional	Attributes		Name
logical,	intent(in),		dimension(:, :)	::	var1
logical,	intent(in),		dimension(:, :)	::	var2
character(len=*),	intent(in),	optional		::	message
logical,	intent(out),	optional		::	status

private subroutine assert_eq_string_(var1, var2, message, status)

Arguments

Type	Intent	Optional	Attributes		Name
character(len=*),	intent(in)			::	var1
character(len=*),	intent(in)			::	var2
character(len=*),	intent(in),	optional		::	message
logical,	intent(out),	optional		::	status

private subroutine assert_eq_1d_string_(var1, var2, message, status)

Arguments

Type	Intent	Optional	Attributes		Name
character(len=*),	intent(in),		dimension(:)	::	var1
character(len=*),	intent(in),		dimension(:)	::	var2
character(len=*),	intent(in),	optional		::	message
logical,	intent(out),	optional		::	status

private subroutine assert_eq_2d_string_(var1, var2, message, status)

Arguments

Type	Intent	Optional	Attributes		Name
character(len=*),	intent(in),		dimension(:, :)	::	var1
character(len=*),	intent(in),		dimension(:, :)	::	var2
character(len=*),	intent(in),	optional		::	message
logical,	intent(out),	optional		::	status

private subroutine assert_eq_int_(var1, var2, message, status)

Arguments

Type	Intent	Optional	Attributes		Name
integer,	intent(in)			::	var1
integer,	intent(in)			::	var2
character(len=*),	intent(in),	optional		::	message
logical,	intent(out),	optional		::	status

private subroutine assert_eq_1d_int_(var1, var2, message, status)

Arguments

Type	Intent	Optional	Attributes		Name
integer,	intent(in),		dimension(:)	::	var1
integer,	intent(in),		dimension(:)	::	var2
character(len=*),	intent(in),	optional		::	message
logical,	intent(out),	optional		::	status

private subroutine assert_eq_2d_int_(var1, var2, message, status)

Arguments

Type	Intent	Optional	Attributes		Name
integer,	intent(in),		dimension(:, :)	::	var1
integer,	intent(in),		dimension(:, :)	::	var2
character(len=*),	intent(in),	optional		::	message
logical,	intent(out),	optional		::	status

private subroutine assert_eq_real_(var1, var2, delta, message, status)

Arguments

Type	Intent	Optional	Attributes		Name
real,	intent(in)			::	var1
real,	intent(in)			::	var2
real,	intent(in),	optional		::	delta
character(len=*),	intent(in),	optional		::	message
logical,	intent(out),	optional		::	status

private subroutine assert_eq_1d_real_(var1, var2, delta, message, status)

Arguments

Type	Intent	Optional	Attributes		Name
real,	intent(in),		dimension(:)	::	var1
real,	intent(in),		dimension(:)	::	var2
real,	intent(in),	optional		::	delta
character(len=*),	intent(in),	optional		::	message
logical,	intent(out),	optional		::	status

private subroutine assert_eq_2d_real_(var1, var2, delta, message, status)

Arguments

Type	Intent	Optional	Attributes		Name
real,	intent(in),		dimension(:, :)	::	var1
real,	intent(in),		dimension(:, :)	::	var2
real,	intent(in),	optional		::	delta
character(len=*),	intent(in),	optional		::	message
logical,	intent(out),	optional		::	status

private subroutine assert_eq_double_(var1, var2, delta, message, status)

Arguments

Type	Intent	Optional	Attributes		Name
real(kind=dp),	intent(in)			::	var1
real(kind=dp),	intent(in)			::	var2
real(kind=dp),	intent(in),	optional		::	delta
character(len=*),	intent(in),	optional		::	message
logical,	intent(out),	optional		::	status

private subroutine assert_eq_1d_double_(var1, var2, delta, message, status)

Arguments

Type	Intent	Optional	Attributes		Name
real(kind=dp),	intent(in),		dimension(:)	::	var1
real(kind=dp),	intent(in),		dimension(:)	::	var2
real(kind=dp),	intent(in),	optional		::	delta
character(len=*),	intent(in),	optional		::	message
logical,	intent(out),	optional		::	status

private subroutine assert_eq_2d_double_(var1, var2, delta, message, status)

Arguments

Type	Intent	Optional	Attributes		Name
real(kind=dp),	intent(in),		dimension(:, :)	::	var1
real(kind=dp),	intent(in),		dimension(:, :)	::	var2
real(kind=dp),	intent(in),	optional		::	delta
character(len=*),	intent(in),	optional		::	message
logical,	intent(out),	optional		::	status

private subroutine assert_eq_complex_real_(var1, var2, delta, message, status)

Arguments

Type	Intent	Optional	Attributes		Name
complex,	intent(in)			::	var1
complex,	intent(in)			::	var2
real,	intent(in),	optional		::	delta
character(len=*),	intent(in),	optional		::	message
logical,	intent(out),	optional		::	status

private subroutine assert_eq_1d_complex_real_(var1, var2, delta, message, status)

Arguments

Type	Intent	Optional	Attributes		Name
complex,	intent(in),		dimension(:)	::	var1
complex,	intent(in),		dimension(:)	::	var2
real,	intent(in),	optional		::	delta
character(len=*),	intent(in),	optional		::	message
logical,	intent(out),	optional		::	status

private subroutine assert_eq_2d_complex_real_(var1, var2, delta, message, status)

Arguments

Type	Intent	Optional	Attributes		Name
complex,	intent(in),		dimension(:, :)	::	var1
complex,	intent(in),		dimension(:, :)	::	var2
real,	intent(in),	optional		::	delta
character(len=*),	intent(in),	optional		::	message
logical,	intent(out),	optional		::	status

private subroutine assert_eq_complex_double_(var1, var2, delta, message, status)

Arguments

Type	Intent	Optional	Attributes		Name
complex(kind=dp),	intent(in)			::	var1
complex(kind=dp),	intent(in)			::	var2
real(kind=dp),	intent(in),	optional		::	delta
character(len=*),	intent(in),	optional		::	message
logical,	intent(out),	optional		::	status

private subroutine assert_eq_1d_complex_double_(var1, var2, delta, message, status)

Arguments

Type	Intent	Optional	Attributes		Name
complex(kind=dp),	intent(in),		dimension(:)	::	var1
complex(kind=dp),	intent(in),		dimension(:)	::	var2
real(kind=dp),	intent(in),	optional		::	delta
character(len=*),	intent(in),	optional		::	message
logical,	intent(out),	optional		::	status

private subroutine assert_eq_2d_complex_double_(var1, var2, delta, message, status)

Arguments

Type	Intent	Optional	Attributes		Name
complex(kind=dp),	intent(in),		dimension(:, :)	::	var1
complex(kind=dp),	intent(in),		dimension(:, :)	::	var2
real(kind=dp),	intent(in),	optional		::	delta
character(len=*),	intent(in),	optional		::	message
logical,	intent(out),	optional		::	status