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/] [interface1.adb] - Rev 304
Go to most recent revision | Compare with Previous | Blame | View Log
-- { dg-do run } with System; procedure Interface1 is package Pkg is type I1 is interface; type Root is tagged record Data : string (1 .. 300); end record; type DT is new Root and I1 with null record; end Pkg; use Pkg; use type System.Address; Obj : DT; procedure IW (O : I1'Class) is begin if O'Address /= Obj'Address then raise Program_Error; end if; end IW; begin IW (Obj); end Interface1;
Go to most recent revision | Compare with Previous | Blame | View Log