--  (C) Copyright 1999 by John Halleck
--  All rights reserved.

--  Diddly test routine.

with Text_IO;        use Text_IO;
with Survey.Text_IO; use Survey.Text_IO;

procedure Survey_Text_Io_Test is
begin
   Put ("Test routine for the survey Text IO routines.");
   New_Line;
end Survey_Text_Io_Test;