OpenCores
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/] [discr21.adb] - Rev 304

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;
 

Compare with Previous | Blame | View Log

powered by: WebSVN 2.1.0

© copyright 1999-2024 OpenCores.org, equivalent to Oliscience, all rights reserved. OpenCores®, registered trademark.