function rat_div_test ( )

%*****************************************************************************80
%
%% RAT_DIV_TEST tests RAT_DIV.
%
%  Licensing:
%
%    This code is distributed under the GNU LGPL license.
%
%  Modified:
%
%    13 April 2009
%
%  Author:
%
%    John Burkardt
%
  fprintf ( 1, '\n' );
  fprintf ( 1, 'RAT_DIV_TEST\n' );
  fprintf ( 1, '  RAT_DIV divides two rationals.\n' );

  atop = 3;
  abot = 4;
  btop = 10;
  bbot = 7;

  [ ctop, cbot ] = rat_div ( atop, abot, btop, bbot );

  fprintf ( 1, '\n' );
  s = rat_to_s ( atop, abot );
  fprintf ( 1, '  A = %s\n', s );
  s = rat_to_s ( btop, bbot );
  fprintf ( 1, '  B = %s\n', s );
  s = rat_to_s ( ctop, cbot );
  fprintf ( 1, '  C = A / B = %s\n', s );

  return
end
