function r8_sqrt_pi_test ( )

%*****************************************************************************80
%
%% R8_SQRT_PI_TEST tests R8_SQRT_PI.
%
%  Licensing:
%
%    This code is distributed under the GNU LGPL license.
%
%  Modified:
%
%    30 July 2018
%
%  Author:
%
%    John Burkardt
%
  fprintf ( 1, '\n' );
  fprintf ( 1, 'R8_SQRT_PI_TEST\n' );
  fprintf ( 1, '  R8_SQRT_PI returns the square root of PI.\n' );
  fprintf ( 1, '\n' );
  v1 = r8_sqrt_pi ( );
  fprintf ( 1, '  R8_SQRT_PI           = %24.16f\n', v1 );
  v2 = 2.0 * sqrt ( atan ( 1.0 ) );
  fprintf ( 1, '  2 * sqrt ( atan(1) ) = %24.16f\n', v2 );
  v3 = sqrt ( pi );
  fprintf ( 1, '  sqrt ( PI )          = %24.16f\n', v3 );

  return
end
