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] - Rev 414
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