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/] [discr21.adb] - Rev 304
Go to most recent revision | Compare with Previous | Blame | View Log
-- { dg-do compile } -- { dg-options "-gnatws -O3" } with Discr21_Pkg; use Discr21_Pkg; package body Discr21 is type Index is new Natural range 0 .. 100; type Arr is array (Index range <> ) of Position; type Rec(Size : Index := 1) is record A : Arr(1 .. Size); end record; Data : Rec; function To_V(pos : Position) return VPosition is begin return To_Position(pos.x, pos.y, pos.z); end; procedure Read(Data : Rec) is pos : VPosition := To_V (Data.A(1)); begin null; end; procedure Test is begin Read (Data); end; end Discr21;
Go to most recent revision | Compare with Previous | Blame | View Log