function y_to_s_common_test ( )

%*****************************************************************************80
%
%% Y_TO_S_COMMON_TEST() tests Y_TO_S_COMMON.
%
%  Licensing:
%
%    This code is distributed under the MIT license.
%
%  Modified:
%
%    22 December 2017
%
%  Author:
%
%    John Burkardt
%
  fprintf ( 1, '\n' );
  fprintf ( 1, 'Y_TO_S_COMMON_TEST:\n' );
  fprintf ( 1, '  Y_TO_S_COMMON converts a year Y to a string S.\n' );
  fprintf ( 1, '\n' );
  fprintf ( 1, '       Y  "S"\n' );
  fprintf ( 1, '\n' );

  mu = 0.0;
  sigma = 1000.0;
  seed = 123456789;

  for i = 1 : 10
    [ y, seed ] = i4_normal_ab ( mu, sigma, seed );
    s = y_to_s_common ( y );
    fprintf ( 1, '  %6d  "%s"\n', y, s );
  end

  return
end
