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

Subversion Repositories openrisc_me

[/] [openrisc/] [trunk/] [gnu-src/] [gcc-4.5.1/] [gcc/] [testsuite/] [gnat.dg/] [bug_elaboration_code.adb] - Blame information for rev 308

Go to most recent revision | Details | Compare with Previous | View Log


package body Bug_Elaboration_Code is
 
   procedure Increment_I is
   begin
      I := I + 1;
   end Increment_I;
 
begin
   I := 5;
   Increment_I;
   J := I;
end Bug_Elaboration_Code;

Line No.	Rev	Author	Line
1	304	jeremybenn	`package body Bug_Elaboration_Code is`
2
3			`procedure Increment_I is`
4			`begin`
5			`I := I + 1;`
6			`end Increment_I;`
7
8			`begin`
9			`I := 5;`
10			`Increment_I;`
11			`J := I;`
12			`end Bug_Elaboration_Code;`

Browse

Tools

Subversion Repositories openrisc_me

[/] [openrisc/] [trunk/] [gnu-src/] [gcc-4.5.1/] [gcc/] [testsuite/] [gnat.dg/] [bug_elaboration_code.adb] - Blame information for rev 308