check Interface

public interface check

Module Procedures

private subroutine check_stat(error, stat, message, more)

Arguments

Type IntentOptional Attributes Name
type(error_type), intent(out), allocatable :: error

Error handling

integer, intent(in) :: stat

Status of operation

character(len=*), intent(in), optional :: message

A detailed message describing the error

character(len=*), intent(in), optional :: more

Another line of error message

private subroutine check_logical(error, expression, message, more)

Arguments

Type IntentOptional Attributes Name
type(error_type), intent(out), allocatable :: error

Error handling

logical, intent(in) :: expression

Result of logical operator

character(len=*), intent(in), optional :: message

A detailed message describing the error

character(len=*), intent(in), optional :: more

Another line of error message

private subroutine check_float_sp(error, actual, expected, message, more, thr, rel)

Arguments

Type IntentOptional Attributes Name
type(error_type), intent(out), allocatable :: error

Error handling

real(kind=sp), intent(in) :: actual

Found floating point value

real(kind=sp), intent(in) :: expected

Expected floating point value

character(len=*), intent(in), optional :: message

A detailed message describing the error

character(len=*), intent(in), optional :: more

Another line of error message

real(kind=sp), intent(in), optional :: thr

Allowed threshold for matching floating point values

logical, intent(in), optional :: rel

Check for relative errors instead

private subroutine check_float_dp(error, actual, expected, message, more, thr, rel)

Arguments

Type IntentOptional Attributes Name
type(error_type), intent(out), allocatable :: error

Error handling

real(kind=dp), intent(in) :: actual

Found floating point value

real(kind=dp), intent(in) :: expected

Expected floating point value

character(len=*), intent(in), optional :: message

A detailed message describing the error

character(len=*), intent(in), optional :: more

Another line of error message

real(kind=dp), intent(in), optional :: thr

Allowed threshold for matching floating point values

logical, intent(in), optional :: rel

Check for relative errors instead

private subroutine check_int_i1(error, actual, expected, message, more)

Arguments

Type IntentOptional Attributes Name
type(error_type), intent(out), allocatable :: error

Error handling

integer(kind=i1), intent(in) :: actual

Found integer value

integer(kind=i1), intent(in) :: expected

Expected integer value

character(len=*), intent(in), optional :: message

A detailed message describing the error

character(len=*), intent(in), optional :: more

Another line of error message

private subroutine check_int_i2(error, actual, expected, message, more)

Arguments

Type IntentOptional Attributes Name
type(error_type), intent(out), allocatable :: error

Error handling

integer(kind=i2), intent(in) :: actual

Found integer value

integer(kind=i2), intent(in) :: expected

Expected integer value

character(len=*), intent(in), optional :: message

A detailed message describing the error

character(len=*), intent(in), optional :: more

Another line of error message

private subroutine check_int_i4(error, actual, expected, message, more)

Arguments

Type IntentOptional Attributes Name
type(error_type), intent(out), allocatable :: error

Error handling

integer(kind=i4), intent(in) :: actual

Found integer value

integer(kind=i4), intent(in) :: expected

Expected integer value

character(len=*), intent(in), optional :: message

A detailed message describing the error

character(len=*), intent(in), optional :: more

Another line of error message

private subroutine check_int_i8(error, actual, expected, message, more)

Arguments

Type IntentOptional Attributes Name
type(error_type), intent(out), allocatable :: error

Error handling

integer(kind=i8), intent(in) :: actual

Found integer value

integer(kind=i8), intent(in) :: expected

Expected integer value

character(len=*), intent(in), optional :: message

A detailed message describing the error

character(len=*), intent(in), optional :: more

Another line of error message

private subroutine check_bool(error, actual, expected, message, more)

Arguments

Type IntentOptional Attributes Name
type(error_type), intent(out), allocatable :: error

Error handling

logical, intent(in) :: actual

Found boolean value

logical, intent(in) :: expected

Expected boolean value

character(len=*), intent(in), optional :: message

A detailed message describing the error

character(len=*), intent(in), optional :: more

Another line of error message

private subroutine check_string(error, actual, expected, message, more)

Arguments

Type IntentOptional Attributes Name
type(error_type), intent(out), allocatable :: error

Error handling

character(len=*), intent(in) :: actual

Found boolean value

character(len=*), intent(in) :: expected

Expected boolean value

character(len=*), intent(in), optional :: message

A detailed message describing the error

character(len=*), intent(in), optional :: more

Another line of error message