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.0rc1/] [gcc/] [testsuite/] [gnat.dg/] [specs/] [size_attribute1.ads] - Rev 338
Compare with Previous | Blame | View Log
-- { dg-do compile } with Size_Attribute1_Pkg1; package Size_Attribute1 is function Num return Natural; pragma Import (Ada, Num); type A is array (Natural range <>) of Integer; type T is record F1 : Long_Float; F2 : A (1 .. Num); end record; package My_Q is new Size_Attribute1_Pkg1 (T); end Size_Attribute1;