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_8
       6           1 :   use tester
       7             :   implicit none
       8             : 
       9             :   type(tester_t) :: test
      10             :   integer, parameter :: long_k = selected_int_kind(18)
      11             : 
      12           1 :   call test%init()
      13             : 
      14           1 :   call test%assert_equal([1_long_k, 2_long_k, huge(1_long_k)], [0_long_k, 2_long_k, huge(1_long_k)])
      15             : 
      16           1 :   call test%print()
      17             : 
      18           0 : end program test_tester_8