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' );
  fprintf ( 1, '\n' );

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

  return
end
