test_tester_1 Program

  1. test_tester_1.f90
  2. test_tester_1
program~~test_tester_1~~UsesGraph program~test_tester_1 test_tester_1 module~tester tester module~tester->program~test_tester_1 iso_fortran_env iso_fortran_env iso_fortran_env->module~tester
Help


Calls

program~~test_tester_1~~CallsGraph program~test_tester_1 test_tester_1 init init program~test_tester_1->init assert_equal assert_equal program~test_tester_1->assert_equal assert_close assert_close program~test_tester_1->assert_close
Help

Variables

Source Code

test_tester_1

Variables

Type AttributesNameInitial
type(tester_t) :: test

Source Code

program test_tester_1
  use tester
  implicit none

  type(tester_t) :: test

  call test% init()

  call test% assert_equal(1, 2, fail=.true.)

  call test% assert_equal(-121, -11**2)

  call test% assert_equal([1, -10, 1899010], [1, -10, 1899010])

  call test% assert_equal(.true., 2 > 1)

  call test% assert_close(1.d0, (1.d0+1.d-16))

  call test% assert_close(1.d0, (1.d0+1.d-15), fail=.true.)

  call test% assert_close(1., (1.+1.e-7))

  call test% assert_close(1., (1.+1.e-6), fail=.true.)

  call test% assert_close([1.d0, 2.d0, 3.d0], [1.d0+1.d-15, 2.d0, 3.d0], fail=.true.)

  call test% assert_close([1.d0, 2.d0], [1.d0, 2.d0, 3.d0], fail=.true.)

  call test% assert_close([1.d0, 2.d0], [1.d0, 2.d0])

  call test% print()

end program test_tester_1

All Programs