function i4vec_is_coprime_test ( )

%*****************************************************************************80
%
%% i4vec_is_coprime_test tests i4vec_is_coprime.
%
%  Licensing:
%
%    This code is distributed under the MIT license.
%
%  Modified:
%
%    13 December 2020
%
%  Author:
%
%    John Burkardt
%
  test_num = 6;

  x_test = [ ...
     1,  2,  5,  1,  1,  6; ...
     3,  2,  7, 13,  4, 35; ...
     2,  2, 12,  1,  9, 13; ...
     4,  2, 29, 11, 16, 77 ];

  fprintf ( 1, '\n' );
  fprintf ( 1, 'i4vec_is_coprime_test\n' );
  fprintf ( 1, '  i4vec_is_coprime() determines if a vector of\n' );
  fprintf ( 1, '  integers is pairwise prime.\n' );
  fprintf ( 1, '\n' );
  fprintf ( 1, '  Row Vector   Coprime?\n' );
  fprintf ( 1, '\n' );

  for test = 1 : test_num

    x = x_test(:,test);
    value = i4vec_is_coprime ( x );
    s = boolean_to_string ( value );
    fprintf ( 1, '  %3d  %3d  %3d  %3d  %s\n', x, s );

  end

  return
end
