blob: ece680728d4e10bacf5350558cde33b5f55f8e36 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
|
-- { 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;
|