URL
https://opencores.org/ocsvn/openrisc/openrisc/trunk
Only display areas with differences |
Details |
Blame |
View Log
Rev 304 |
Rev 384 |
-- { dg-do compile }
|
-- { dg-do compile }
|
|
|
with Size_Attribute1_Pkg1;
|
with Size_Attribute1_Pkg1;
|
|
|
package Size_Attribute1 is
|
package Size_Attribute1 is
|
|
|
function Num return Natural;
|
function Num return Natural;
|
pragma Import (Ada, Num);
|
pragma Import (Ada, Num);
|
|
|
type A is array (Natural range <>) of Integer;
|
type A is array (Natural range <>) of Integer;
|
|
|
type T is
|
type T is
|
record
|
record
|
F1 : Long_Float;
|
F1 : Long_Float;
|
F2 : A (1 .. Num);
|
F2 : A (1 .. Num);
|
end record;
|
end record;
|
|
|
package My_Q is new Size_Attribute1_Pkg1 (T);
|
package My_Q is new Size_Attribute1_Pkg1 (T);
|
|
|
end Size_Attribute1;
|
end Size_Attribute1;
|
|
|
© copyright 1999-2024
OpenCores.org, equivalent to Oliscience, all rights reserved. OpenCores®, registered trademark.