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

Subversion Repositories openrisc

[/] [openrisc/] [tags/] [gnu-src/] [gcc-4.5.1/] [gcc-4.5.1-or32-1.0rc2/] [gcc/] [testsuite/] [gnat.dg/] [specs/] [elab1.ads] - Diff between revs 304 and 384

Rev 304	Rev 384
`-- { dg-do compile }`	`-- { dg-do compile }`

`pragma Restrictions(No_Elaboration_Code);`	`pragma Restrictions(No_Elaboration_Code);`

`with System;`	`with System;`

`package Elab1 is`	`package Elab1 is`

`type Ptrs_Type is array (Integer range 1 .. 2) of System.Address;`	`type Ptrs_Type is array (Integer range 1 .. 2) of System.Address;`
`type Vars_Array is array (Integer range 1 .. 2) of Integer;`	`type Vars_Array is array (Integer range 1 .. 2) of Integer;`

`Vars : Vars_Array;`	`Vars : Vars_Array;`

`Val1 : constant Integer := 1;`	`Val1 : constant Integer := 1;`
`Val2 : constant Integer := 2;`	`Val2 : constant Integer := 2;`

`Ptrs : constant Ptrs_Type :=`	`Ptrs : constant Ptrs_Type :=`
`(1 => Vars (Val1)'Address,`	`(1 => Vars (Val1)'Address,`
`2 => Vars (Val2)'Address);`	`2 => Vars (Val2)'Address);`

`end Elab1;`	`end Elab1;`