test_mt Program

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


Calls

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

Variables

Source Code

test_mt

Variables

Type AttributesNameInitial
type(tester_t) :: test

Source Code

program test_mt
  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_mt

All Programs