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] - Blame information for rev 414

Go to most recent revision | Details | Compare with Previous | View Log

Line No. Rev Author Line
1 304 jeremybenn
-- { dg-do compile }
2
-- { dg-options "-gnatws -O3" }
3
 
4
with Discr21_Pkg; use Discr21_Pkg;
5
 
6
package body Discr21 is
7
 
8
  type Index is new Natural range 0 .. 100;
9
 
10
  type Arr is array (Index range <> ) of Position;
11
 
12
  type Rec(Size : Index := 1) is record
13
    A : Arr(1 .. Size);
14
  end record;
15
 
16
  Data : Rec;
17
 
18
  function To_V(pos : Position) return VPosition is
19
  begin
20
    return To_Position(pos.x, pos.y, pos.z);
21
  end;
22
 
23
  procedure Read(Data : Rec) is
24
    pos : VPosition := To_V (Data.A(1));
25
  begin
26
    null;
27
  end;
28
 
29
  procedure Test is
30
  begin
31
    Read (Data);
32
  end;
33
 
34
end Discr21;

powered by: WebSVN 2.1.0

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