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/] [interface2.adb] - Rev 304
Go to most recent revision | Compare with Previous | Blame | View Log
-- { dg-do run } procedure interface2 is package Types is type Iface is synchronized interface; type Any_Iface is access all Iface'Class; -- protected type T_PO (S : Integer) is new Iface with end; task type T_Task (R : Any_Iface); -- Obj_1 : aliased T_PO (0); Obj_2 : T_Task (Obj_1'Access); -- Test end Types; -- package body Types is protected body T_PO is end; task body T_Task is begin null; end; end Types; -- begin null; end;
Go to most recent revision | Compare with Previous | Blame | View Log