test_tester_05 Program

Uses

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

Calls

program~~test_tester_05~~CallsGraph program~test_tester_05 test_tester_05 none~assert_equal tester::tester_t%assert_equal program~test_tester_05->none~assert_equal none~assert_positive tester::tester_t%assert_positive program~test_tester_05->none~assert_positive proc~init~2 tester::tester_t%init program~test_tester_05->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 proc~assert_positive_i16 tester::tester_t%assert_positive_i16 none~assert_positive->proc~assert_positive_i16 proc~assert_positive_i16_1 tester::tester_t%assert_positive_i16_1 none~assert_positive->proc~assert_positive_i16_1 proc~assert_positive_i32 tester::tester_t%assert_positive_i32 none~assert_positive->proc~assert_positive_i32 proc~assert_positive_i32_1 tester::tester_t%assert_positive_i32_1 none~assert_positive->proc~assert_positive_i32_1 proc~assert_positive_i64 tester::tester_t%assert_positive_i64 none~assert_positive->proc~assert_positive_i64 proc~assert_positive_i64_1 tester::tester_t%assert_positive_i64_1 none~assert_positive->proc~assert_positive_i64_1 proc~assert_positive_i8 tester::tester_t%assert_positive_i8 none~assert_positive->proc~assert_positive_i8 proc~assert_positive_i8_1 tester::tester_t%assert_positive_i8_1 none~assert_positive->proc~assert_positive_i8_1 proc~assert_positive_r32 tester::tester_t%assert_positive_r32 none~assert_positive->proc~assert_positive_r32 proc~assert_positive_r32_1 tester::tester_t%assert_positive_r32_1 none~assert_positive->proc~assert_positive_r32_1 proc~assert_positive_r64 tester::tester_t%assert_positive_r64 none~assert_positive->proc~assert_positive_r64 proc~assert_positive_r64_1 tester::tester_t%assert_positive_r64_1 none~assert_positive->proc~assert_positive_r64_1

Variables

Type Attributes Name Initial
integer, parameter :: i_k1 = selected_int_kind(3)
type(tester_t) :: test

Source Code

program test_tester_05
  use tester
  implicit none

  integer, parameter :: i_k1 = selected_int_kind(3)

  type(tester_t) :: test

  call test% init()

  call test% assert_equal(8765_i_k1, 8765_i_k1)

  call test% assert_equal( &
       [-3261_i_k1, -1169_i_k1, 2967_i_k1, -3736_i_k1, 3504_i_k1], &
       [-3261_i_k1, -1169_i_k1, 2967_i_k1, -3736_i_k1, 3504_i_k1])

  call test% assert_positive(1982_i_k1)

  call test% assert_positive([6987_i_k1, 0_i_k1])

  call test% print()

end program test_tester_05