3 with Discr12_Pkg
; use Discr12_Pkg
;
7 subtype Small_Int
is Integer range 1..10;
11 type PT_W_Disc
(D
: Small_Int
) is private;
13 type Rec_W_Private
(D1
: Integer) is
18 type Rec_01
(D3
: Integer) is
20 C1
: Rec_W_Private
(D3
);
23 type Arr
is array (1 .. 5) of Rec_01
(Dummy
(0));
26 type PT_W_Disc
(D
: Small_Int
) is
28 Str
: String (1 .. D
);