URL https://opencores.org/ocsvn/openrisc_2011-10-31/openrisc_2011-10-31/trunk

Subversion Repositories openrisc_2011-10-31

[/] [openrisc/] [tags/] [gnu-src/] [gcc-4.5.1/] [gcc-4.5.1-or32-1.0rc1/] [gcc/] [testsuite/] [ada/] [acats/] [tests/] [gcc/] [template.ada] - Blame information for rev 338

Details | Compare with Previous | View Log


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;

Line No.	Rev	Author	Line
1	294	jeremybenn	`with Report; use Report;`
2
3			`procedure Template is`
4			`begin`
5			`-- Test header`
6			`Test ("TEMPLATE", "Template test for GNU Ada test suite");`
7
8			`begin`
9			`-- Body of test`
10			`-- Call procedure Failed when detecting a failure`
11			`Failed ("Pretend this test failed");`
12			`end;`
13
14			`-- Display result`
15			`Result;`
16			`end Template;`

Browse

Tools

Subversion Repositories openrisc_2011-10-31

[/] [openrisc/] [tags/] [gnu-src/] [gcc-4.5.1/] [gcc-4.5.1-or32-1.0rc1/] [gcc/] [testsuite/] [ada/] [acats/] [tests/] [gcc/] [template.ada] - Blame information for rev 338