function rgf_check_test ( )

%*****************************************************************************80
%
%% RGF_CHECK_TEST tests RGF_CHECK.
%
%  Licensing:
%
%    This code is distributed under the GNU LGPL license.
%
%  Modified:
%
%    31 December 2015
%
%  Author:
%
%    John Burkardt
%
  fprintf ( 1, '\n' );
  fprintf ( 1, 'RGF_CHECK TEST\n' );
  fprintf ( 1, '  RGF_CHECK checks a restricted growth function.\n' );
  
  for test = 1 : 4

    if ( test == 1 )
      m = -1;
      f = [];
    elseif ( test == 2 )
      m = 7;
      f = [ 0, 1, 2, 3, 4, 5, 6 ];
    elseif ( test == 3 )
      m = 7;
      f = [ 1, 3, 5, 8, 9, 10, 12 ];
    elseif ( test == 4 )
      m = 7;
      f = [ 1, 2, 3, 1, 4, 5, 4 ];
    end

    check = rgf_check ( m, f );
    i4vec_transpose_print ( m, f, '  RGF:' );
    fprintf ( 1, '  Check = %2d\n', check );
    
  end

  return
end
