function i4_mop_test ( )

%*****************************************************************************80
%
%% I4_MOP_TEST tests I4_MOP.
%
%  Licensing:
%
%    This code is distributed under the MIT license.
%
%  Modified:
%
%    12 May 2015
%
%  Author:
%
%    John Burkardt
%
  fprintf ( 1, '\n' );
  fprintf ( 1, 'I4_MOP_TEST\n' );
  fprintf ( 1, '  I4_MOP computes a minus-one-power (-1)^I.\n' );
  fprintf ( 1, '\n' );
  fprintf ( 1, '        I4  I4_MOP(I4)\n' );
  wfprintf ( 1, '\n' );

  i4_lo = -1000000;
  i4_hi = +1000000;
  seed = 123456789;
  
  for i = 1 : 10
    [ i4, seed ] = i4_uniform_ab ( i4_lo, i4_hi, seed );
    fprintf ( '  %8d  %10d\n', i4, i4_mop ( i4 ) );
  end

  return
end
