1 -- { dg-excess-errors "no code generated" }
9 type Variable_Data_T
(Fixed
: Boolean := False) is
19 function Is_Fixed
return Boolean;
21 type Variable_Data_Fixed_T
is new Variable_Data_T
(Is_Fixed
);
23 package Db
is new Lto3_Pkg2
(Id_T
=> Id_T
,
24 Data_T
=> Variable_Data_Fixed_T
);