URL https://opencores.org/ocsvn/openrisc/openrisc/trunk

Subversion Repositories openrisc

[/] [openrisc/] [trunk/] [gnu-dev/] [or1k-gcc/] [gcc/] [testsuite/] [gnat.dg/] [warn1.adb] - Blame information for rev 696

Details | Compare with Previous | View Log


--  { dg-do run }
--  { dg-options "-gnatwae" }
 
procedure warn1 is
   pragma Warnings
     (Off, "variable ""Unused"" is never read and never assigned");
   Unused : Integer;
   pragma Warnings
     (On, "variable ""Unused"" is never read and never assigned");
begin
   null;
end warn1;

Line No.	Rev	Author	Line
1	696	jeremybenn	`-- { dg-do run }`
2			`-- { dg-options "-gnatwae" }`
3
4			`procedure warn1 is`
5			`pragma Warnings`
6			`(Off, "variable ""Unused"" is never read and never assigned");`
7			`Unused : Integer;`
8			`pragma Warnings`
9			`(On, "variable ""Unused"" is never read and never assigned");`
10			`begin`
11			`null;`
12			`end warn1;`

Browse

Tools

Subversion Repositories openrisc

[/] [openrisc/] [trunk/] [gnu-dev/] [or1k-gcc/] [gcc/] [testsuite/] [gnat.dg/] [warn1.adb] - Blame information for rev 696