function fn_test ( )

%*****************************************************************************80
%
%% FN_TEST tests FN.
%
%  Licensing:
%
%    This code is distributed under the GNU LGPL license.
%
%  Modified:
%
%    18 January 2019
%
%  Author:
%
%    John Burkardt
%
  addpath ( '../fn' );

  timestamp ( )
  fprintf ( 1, '\n' );
  fprintf ( 1, 'FN_TEST\n' );
  fprintf ( 1, '  MATLAB version\n' );
  fprintf ( 1, '  Test FN.\n' );

  i4_mach_test ( );
  r8_acos_test ( );
  r8_acosh_test ( );
  r8_ai_test ( );
  r8_aid_test ( );
  r8_aint_test ( );
  r8_asin_test ( );
  r8_asinh_test ( );
  r8_atan_test ( );
  r8_atan2_test ( );
  r8_atanh_test ( );
  r8_besi0_test ( );
  r8_besi1_test ( );
  r8_besj0_test ( );
  r8_besj1_test ( );
  r8_besk_test ( );
  r8_besk0_test ( );
  r8_besk1_test ( );
  r8_besy0_test ( );
  r8_besy1_test ( );
  r8_beta_test ( );
  r8_betai_test ( );
  r8_bi_test ( );
  r8_bid_test ( );
  r8_binom_test ( );
  r8_cbrt_test ( );
  r8_chi_test ( );
  r8_chu_test ( );
  r8_ci_test ( );
  r8_cin_test ( );
  r8_cinh_test ( );
  r8_cos_test ( );
  r8_cos_deg_test ( );
  r8_cosh_test ( );
  r8_cot_test ( );
  r8_csevl_test ( );
  r8_dawson_test ( );
  r8_e1_test ( );
  r8_ei_test ( );
  r8_erf_test ( );
  r8_erfc_test ( );
  r8_exp_test ( );
  r8_fac_test ( );
  r8_gamic_test ( );
  r8_gamit_test ( );
  r8_gaml_test ( );
  r8_gamma_test ( );
  r8_gamr_test ( );
  r8_inits_test ( );
  r8_int_test ( );
  r8_lbeta_test ( );
  r8_lgams_test ( );
  r8_lgmc_test ( );
  r8_li_test ( );
  r8_lngam_test ( );
  r8_lnrel_test ( );
  r8_log_test ( );
  r8_log10_test ( );
  r8_mach_test ( );
  r8_mop_test ( );
  r8_pak_test ( );
  r8_poch_test ( );
  r8_psi_test ( );
  r8_rand_test ( );
  r8_randgs_test ( );
  r8_random_test ( );
  r8_ren_test ( );
  r8_shi_test ( );
  r8_si_test ( );
  r8_sin_test ( );
  r8_sin_deg_test ( );
  r8_sinh_test ( );
  r8_spence_test ( );
  r8_sqrt_test ( );
  r8_tan_test ( );
  r8_tanh_test ( );
  r8_upak_test ( );
%
%  Terminate.
%
  fprintf ( 1, '\n' );
  fprintf ( 1, 'FN_TEST\n' );
  fprintf ( 1, '  Normal end of execution.\n' );
  fprintf ( 1, '\n' );
  timestamp ( );

  rmpath ( '../fn' );

  return
end
