Line data    Source code

       1             : ! This file is part of fortran_tester
       2             : ! Copyright 2018 Pierre de Buyl
       3             : ! License: BSD
       4             : 
       5           1 : program test_tester_6
       6           1 :   use tester
       7             :   implicit none
       8             : 
       9             :   integer, parameter :: rk = selected_real_kind(15)
      10             :   real(kind=rk), parameter :: pi = 4*atan(1._rk)
      11             :   type(tester_t) :: test
      12             : 
      13           1 :   call test%init()
      14             : 
      15           1 :   call test%assert_close(sin(2*pi), 0._rk)
      16             : 
      17           1 :   call test%assert_close(sin(2*3.1415927), 0.)
      18             : 
      19           1 :   call test%print()
      20             : 
      21           1 : end program test_tester_6