function errors_test03 ( )

%*****************************************************************************80
%
%% ERRORS_TEST03
%
%  Licensing:
%
%    This code is distributed under the GNU LGPL license.
%
%  Modified:
%
%    21 August 2017
%
%  Author:
%
%    John Burkardt
%
  fprintf ( 1, '\n' );
  fprintf ( 1, '+=============================================+\n' );
  fprintf ( 1, '|                                             |\n' );
  fprintf ( 1, '|  Exercise 3                                 |\n' );
  fprintf ( 1, '|                                             |\n' );
  fprintf ( 1, '|    P = 10 ^ 34                              |\n' );
  fprintf ( 1, '|    Q = - 2                                  |\n' );
  fprintf ( 1, '|                                             |\n' );
  fprintf ( 1, '|  Compute:                                   |\n' );
  fprintf ( 1, '|                                             |\n' );
  fprintf ( 1, '|    R = ( P + Q ) - P                        |\n' );
  fprintf ( 1, '|                                             |\n' );
  fprintf ( 1, '|  Correct value:                             |\n' );
  fprintf ( 1, '|                                             |\n' );
  fprintf ( 1, '|    R = - 2                                  |\n' );
  fprintf ( 1, '|                                             |\n' );
  fprintf ( 1, '+=============================================+\n' );
  fprintf ( 1, '\n' );

  p = 1.0E+34;
  q = - 2.0;

  r = ( p + q ) - p;

  fprintf ( 1, '  R = %20.16f\n', r );

  return
end
