function stla_io_test01 ( input_file_name )

%*****************************************************************************80
%
%% stla_io_test01() tests stla_check().
%
%  Licensing:
%
%    This code is distributed under the MIT license.
%
%  Modified:
%
%    24 September 2005
%
%  Author:
%
%    John Burkardt
%
  fprintf ( 1, '\n' );
  fprintf ( 1, 'stla_io_test01():\n' );
  fprintf ( 1, '  stla_check() makes some simple checks on a file.\n' );

  fprintf ( 1, '\n' );
  if ( stla_check ( input_file_name ) )
    fprintf ( 1, ...
      '  The file "%s" seems to be a legal ASCII STL file.\n', ...
      input_file_name ); 
  else
    fprintf ( 1, ...
      '  The file "%s" does NOT seem to be a legal ASCII STL file.\n', ...
      input_file_name );
  end

  return
end
