function i4vec_rotate_test ( )

%*****************************************************************************80
%
%% i4vec_rotate_test tests i4vec_rotate().
%
%  Licensing:
%
%    This code is distributed under the MIT license.
%
%  Modified:
%
%    30 May 2020
%
%  Author:
%
%    John Burkardt
%
  n = 10;

  fprintf ( 1, '\n' );
  fprintf ( 1, 'i4vec_rotate_test\n' );
  fprintf ( 1, '  i4vec_rotate() rotates an I4VEC by M positions.\n' );

  a = [ 1 : 10 ];
  i4vec_transpose_print ( n, a, '  The vector:' );

  for m = -3 : 5
    b = i4vec_rotate ( a, m );
    label = sprintf ( '  M = %2d:', m );
    i4vec_transpose_print ( n, b, label )
  end

  return
end
