Subversion Repositories openrisc

with Report; use Report;

procedure Template is

begin

   --  Test header

   Test ("TEMPLATE", "Template test for GNU Ada test suite");

   begin

      --  Body of test

      --  Call procedure Failed when detecting a failure

      Failed ("Pretend this test failed");

   end;

   --  Display result

   Result;

end Template;