-- Reporter Ada 95 bindings test program
-- by Stefan Bellon
-- just to demonstrate the principal usage of Reporter in Ada
-- nothing too sophisticated! ;-)

with Reporter;

procedure Test is
begin
   Reporter.Clear ("Starting new...");
   Reporter.Report ("This is a test message at \t ...");
   Reporter.Report ("<Obey$Dir>");
   Reporter.Error;
end Test;