function i4vec_gcd_test ( )

%*****************************************************************************80
%
%% i4vec_gcd_test tests i4vec_gcd.
%
%  Licensing:
%
%    This code is distributed under the MIT license.
%
%  Modified:
%
%    07 April 2020
%
%  Author:
%
%    John Burkardt
%
  n = 4;
  i4vec = [ 2^3*3  *5  *7*11  *13, ...
            2  *3^2*5  *7*11  *13, ...
            2  *3  *5^3*7*11  *13, ...
            2  *3  *5  *7*11^2*13];

  fprintf ( 1, '\n' );
  fprintf ( 1, 'i4vec_gcd_test\n' );
  fprintf ( 1, '  i4vec_gcd computes the greatest common divisor of the\n' );
  fprintf ( 1, '  entries in an I4VEC.\n' );

  i4vec_print ( n, i4vec, '  The I4VEC:' );

  value = i4vec_gcd ( i4vec ); 

  fprintf ( 1, '\n' );
  fprintf ( 1, '  GCD = %d\n', value );

  return
end
