17 lines
279 B
Ada
17 lines
279 B
Ada
|
with Discr53_Pkg;
|
||
|
|
|
||
|
|
package Discr53 is
|
||
|
|
|
||
|
|
type Rec (D : Boolean := False) is record
|
||
|
|
case D is
|
||
|
|
when True => S : String (1 .. Discr53_Pkg.Max);
|
||
|
|
when False => null;
|
||
|
|
end case;
|
||
|
|
end record;
|
||
|
|
|
||
|
|
function F return Rec;
|
||
|
|
|
||
|
|
procedure Proc;
|
||
|
|
|
||
|
|
end Discr53;
|