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

Subversion Repositories openrisc

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

Details | Compare with Previous | View Log


package Deferred_Const3_Pkg is
 
  C : constant Natural := 1;
 
  C1 : constant Natural := 1;
  for C1'Address use C'Address;
 
  C2 : constant Natural;
  for C2'Address use C'Address;
 
  C3 : constant Natural;
 
  procedure Dummy;
 
private
  C2 : constant Natural := 1;
 
  C3 : constant Natural := 1;
  for C3'Address use C'Address;
 
end Deferred_Const3_Pkg;

Line No.	Rev	Author	Line
1	696	jeremybenn	`package Deferred_Const3_Pkg is`
2
3			`C : constant Natural := 1;`
4
5			`C1 : constant Natural := 1;`
6			`for C1'Address use C'Address;`
7
8			`C2 : constant Natural;`
9			`for C2'Address use C'Address;`
10
11			`C3 : constant Natural;`
12
13			`procedure Dummy;`
14
15			`private`
16			`C2 : constant Natural := 1;`
17
18			`C3 : constant Natural := 1;`
19			`for C3'Address use C'Address;`
20
21			`end Deferred_Const3_Pkg;`

Browse

Tools

Subversion Repositories openrisc

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