function i4_choose_check_test ( )

%*****************************************************************************80
%
%% I4_CHOOSE_CHECK_TEST tests I4_CHOOSE_CHECK.
%
%  Licensing:
%
%    This code is distributed under the GNU LGPL license. 
%
%  Modified:
%
%    27 March 2016
%
%  Author:
%
%    John Burkardt
%
  k_test =  [ 3, 999, 3, 10 ];
  n_test = [ 10, 1000, 100, 100 ];

  fprintf ( 1, '\n' );
  fprintf ( 1, 'I4_CHOOSE_CHECK_TEST\n' );
  fprintf ( 1, '  I4_CHOOSE_CHECK checks whether C(N,K)\n' );
  fprintf ( 1, '  can be computed with integer arithmetic\n' );
  fprintf ( 1, '  or not.\n' );
  fprintf ( 1, '\n' );
  fprintf ( 1, '     N     K    CHECK?    I4_CHOOSE\n' );
  fprintf ( 1, '\n' );
 
  for i = 1 : 4
    n = n_test(i);
    k = k_test(i);
    check = i4_choose_check ( n, k );
    fprintf ( 1, '  %4d  %4d        %d', n, k, check );
    if ( check )
      cnk = i4_choose ( n, k );
      fprintf ( 1, '        %d\n', cnk );
    else
      fprintf ( 1, '   Not computable\n' );
    end
  end
 
  return
end