Line data    Source code

       1             : ! This file is part of fortran_tester
       2             : ! Copyright 2015 Pierre de Buyl
       3             : ! License: BSD
       4             : 
       5           1 : program test_tester_05
       6           1 :   use tester
       7             :   implicit none
       8             : 
       9             :   integer, parameter :: i_k1 = selected_int_kind(3)
      10             : 
      11             :   type(tester_t) :: test
      12             : 
      13           1 :   call test% init()
      14             : 
      15           1 :   call test% assert_equal(8765_i_k1, 8765_i_k1)
      16             : 
      17             :   call test% assert_equal( &
      18             :        [-3261_i_k1, -1169_i_k1, 2967_i_k1, -3736_i_k1, 3504_i_k1], &
      19           1 :        [-3261_i_k1, -1169_i_k1, 2967_i_k1, -3736_i_k1, 3504_i_k1])
      20             : 
      21           1 :   call test% assert_positive(1982_i_k1)
      22             : 
      23           1 :   call test% assert_positive([6987_i_k1, 0_i_k1])
      24             : 
      25           1 :   call test% print()
      26             : 
      27           1 : end program test_tester_05