test_tester_8 Program

Uses

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

Calls

program~~test_tester_8~~CallsGraph program~test_tester_8 test_tester_8 none~assert_equal tester::tester_t%assert_equal program~test_tester_8->none~assert_equal proc~init~2 tester::tester_t%init program~test_tester_8->proc~init~2 proc~assert_equal_c32 tester::tester_t%assert_equal_c32 none~assert_equal->proc~assert_equal_c32 proc~assert_equal_c32_1 tester::tester_t%assert_equal_c32_1 none~assert_equal->proc~assert_equal_c32_1 proc~assert_equal_c64 tester::tester_t%assert_equal_c64 none~assert_equal->proc~assert_equal_c64 proc~assert_equal_c64_1 tester::tester_t%assert_equal_c64_1 none~assert_equal->proc~assert_equal_c64_1 proc~assert_equal_i16 tester::tester_t%assert_equal_i16 none~assert_equal->proc~assert_equal_i16 proc~assert_equal_i16_1 tester::tester_t%assert_equal_i16_1 none~assert_equal->proc~assert_equal_i16_1 proc~assert_equal_i32 tester::tester_t%assert_equal_i32 none~assert_equal->proc~assert_equal_i32 proc~assert_equal_i32_1 tester::tester_t%assert_equal_i32_1 none~assert_equal->proc~assert_equal_i32_1 proc~assert_equal_i64 tester::tester_t%assert_equal_i64 none~assert_equal->proc~assert_equal_i64 proc~assert_equal_i64_1 tester::tester_t%assert_equal_i64_1 none~assert_equal->proc~assert_equal_i64_1 proc~assert_equal_i8 tester::tester_t%assert_equal_i8 none~assert_equal->proc~assert_equal_i8 proc~assert_equal_i8_1 tester::tester_t%assert_equal_i8_1 none~assert_equal->proc~assert_equal_i8_1 proc~assert_equal_l tester::tester_t%assert_equal_l none~assert_equal->proc~assert_equal_l proc~assert_equal_l_1 tester::tester_t%assert_equal_l_1 none~assert_equal->proc~assert_equal_l_1 proc~assert_equal_r32 tester::tester_t%assert_equal_r32 none~assert_equal->proc~assert_equal_r32 proc~assert_equal_r32_1 tester::tester_t%assert_equal_r32_1 none~assert_equal->proc~assert_equal_r32_1 proc~assert_equal_r64 tester::tester_t%assert_equal_r64 none~assert_equal->proc~assert_equal_r64 proc~assert_equal_r64_1 tester::tester_t%assert_equal_r64_1 none~assert_equal->proc~assert_equal_r64_1

Variables

Type Attributes Name Initial
type(tester_t) :: test
integer, parameter :: long_k = selected_int_kind(18)

Source Code

program test_tester_8
  use tester
  implicit none

  type(tester_t) :: test
  integer, parameter :: long_k = selected_int_kind(18)

  call test%init()

  call test%assert_equal([1_long_k, 2_long_k, huge(1_long_k)], [0_long_k, 2_long_k, huge(1_long_k)])

  call test%print()

end program test_tester_8