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/] [deferred_const3_pkg.ads] - Blame information for rev 310

Go to most recent revision | 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	304	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_me

[/] [openrisc/] [trunk/] [gnu-src/] [gcc-4.5.1/] [gcc/] [testsuite/] [gnat.dg/] [deferred_const3_pkg.ads] - Blame information for rev 310