test_tester_6 Program

Uses

  • program~~test_tester_6~~UsesGraph program~test_tester_6 test_tester_6 module~tester tester program~test_tester_6->module~tester iso_fortran_env iso_fortran_env module~tester->iso_fortran_env

Calls

program~~test_tester_6~~CallsGraph program~test_tester_6 test_tester_6 none~assert_close tester::tester_t%assert_close program~test_tester_6->none~assert_close proc~init~2 tester::tester_t%init program~test_tester_6->proc~init~2 proc~assert_close_c32 tester::tester_t%assert_close_c32 none~assert_close->proc~assert_close_c32 proc~assert_close_c32_1 tester::tester_t%assert_close_c32_1 none~assert_close->proc~assert_close_c32_1 proc~assert_close_c64 tester::tester_t%assert_close_c64 none~assert_close->proc~assert_close_c64 proc~assert_close_c64_1 tester::tester_t%assert_close_c64_1 none~assert_close->proc~assert_close_c64_1 proc~assert_close_r32 tester::tester_t%assert_close_r32 none~assert_close->proc~assert_close_r32 proc~assert_close_r32_1 tester::tester_t%assert_close_r32_1 none~assert_close->proc~assert_close_r32_1 proc~assert_close_r64 tester::tester_t%assert_close_r64 none~assert_close->proc~assert_close_r64 proc~assert_close_r64_1 tester::tester_t%assert_close_r64_1 none~assert_close->proc~assert_close_r64_1

Variables

Type Attributes Name Initial
integer, parameter :: rk = selected_real_kind(15)
real(kind=rk), parameter :: pi = 4*atan(1._rk)
type(tester_t) :: test

Source Code

program test_tester_6
  use tester
  implicit none

  integer, parameter :: rk = selected_real_kind(15)
  real(kind=rk), parameter :: pi = 4*atan(1._rk)
  type(tester_t) :: test

  call test%init()

  call test%assert_close(sin(2*pi), 0._rk)

  call test%assert_close(sin(2*3.1415927), 0.)

  call test%print()

end program test_tester_6