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/] [late_overriding.adb] - Rev 316
Go to most recent revision | Compare with Previous | Blame | View Log
-- { dg-do compile } procedure late_overriding is package Pkg is type I is interface; procedure Meth (O : in I) is abstract; type Root is abstract tagged null record; type DT1 is abstract new Root and I with null record; end Pkg; use Pkg; type DT2 is new DT1 with null record; procedure Meth (X : DT2) is begin null; end; -- Test begin null; end;
Go to most recent revision | Compare with Previous | Blame | View Log