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/] [interface2.adb] - Blame information for rev 304

Details | Compare with Previous | View Log

Line No. Rev Author Line
1 304 jeremybenn
-- { dg-do run }
2
 
3
procedure interface2 is
4
 package Types is
5
    type Iface     is synchronized interface;
6
    type Any_Iface is access all Iface'Class;
7
--  
8
    protected type T_PO (S : Integer) is new Iface with end;
9
    task type T_Task    (R : Any_Iface);
10
--  
11
    Obj_1 : aliased T_PO (0);
12
    Obj_2 : T_Task (Obj_1'Access); --  Test
13
  end Types;
14
--
15
  package body Types is
16
    protected body T_PO is end;
17
    task body T_Task    is begin null; end;
18
  end Types;
19
--
20
begin
21
   null;
22
end;

powered by: WebSVN 2.1.0

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