f_binding_test.f90 File Reference

Test for fortran bindings. More...

Functions/Subroutines
program	f_binding_test
	Main test program.
subroutine	assert (test, message)
	Assert check.
subroutine	run_test_float (use_safe_math)
	Run float tests.
subroutine	run_test_complex_float (use_safe_math)
	Run complex float tests.
subroutine	run_test_complex_double (use_safe_math)
	Run double tests.

Detailed Description

Test for fortran bindings.

Function/Subroutine Documentation

assert()

subroutine assert	(	logical, intent(in)	test,
		character(len=*)	message
	)

Assert check.

If the assert check does not pass write error to standard error and exit.

Parameters

[in]	test	The check test.
[in]	message	Message to report if check fails.

run_test_complex_double()

subroutine run_test_complex_double

(

logical(c_bool), intent(in)

use_safe_math

)

Run double tests.

Parameters

[in]

use_safe_math

Use safe math.

run_test_complex_float()

subroutine run_test_complex_float

(

logical(c_bool), intent(in)

use_safe_math

)

Run complex float tests.

Parameters

[in]

use_safe_math

Use safe math.

run_test_float()

subroutine run_test_float

(

logical(c_bool), intent(in)

use_safe_math

)

Run float tests.

Parameters

[in]

use_safe_math

Use safe math.