blob: 9faea546b3cf8a8036f87b24c8af8b0ab8266c4b [file] [log] [blame]
package Opt50_Pkg is
type Enum is (One, Two, Three);
for Enum'Size use 16;
type Enum_Boolean_Array is array (Enum range <>) of Boolean;
procedure Get (Kind : String; Result : out Enum; Success : out Boolean);
procedure Set (A : Enum_Boolean_Array);
end Opt50_Pkg;