function r8_divide_i4_test ( )

%*****************************************************************************80
%
%% R8_DIVIDE_I4_TEST tests R8_DIVIDE_I4.
%
%  Licensing:
%
%    This code is distributed under the GNU LGPL license.
%
%  Modified:
%
%    31 July 2018
%
%  Author:
%
%    John Burkardt
%
  fprintf ( 1, '\n' );
  fprintf ( 1, 'R8_DIVIDE_I4_TEST\n' );
  fprintf ( 1, '  R8_DIVIDE_I4 computes an integer ratio as a real result.\n' ); 
  fprintf ( 1, '\n' );
  fprintf ( 1, '     I     J    R8_DIVIDE_I4             I/J\n' );
  fprintf ( 1, '\n' );

  i4_lo = -10;
  i4_hi = +10;
  seed = 123456789;

  for test = 1 : 5

    [ i1, seed ] = i4_uniform_ab ( i4_lo, i4_hi, seed );
    [ i2, seed ] = i4_uniform_ab ( i4_lo, i4_hi, seed );
    r3 = r8_divide_i4 ( i1, i2 );
    r4 = i1 / i2;
 
    fprintf ( 1, '  %4d  %4d  %14.6g  %14.6g\n', i1, i2, r3, r4 );

  end

  return
end
