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_3
       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([.false., .true.], [1>2, 2>1]) 
      14             : 
      15           1 :   call test%print()
      16             : 
      17           1 : end program test_tester_3