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_7
       6           1 :   use tester
       7             :   implicit none
       8             : 
       9             :   type(tester_t) :: test
      10             : 
      11           1 :   call test%init()
      12             : 
      13           1 :   call test%assert_equal([1, 2, huge(1)], [0, 2, huge(1)])
      14             : 
      15           1 :   call test%print()
      16             : 
      17           0 : end program test_tester_7