6 procedure Test_Enum_IO
is
8 type Enum
is (Literal
);
9 package Enum_IO
is new Enumeration_IO
(Enum
);
14 Rest
: String (1 ..30);
19 Create
(File
, Mode
=> Out_File
);
20 Put_Line
(File
, "Literax0000000l note the 'l' at the end");
22 Reset
(File
, Mode
=> In_File
);
24 Get_Line
(File
, Rest
, Last
);
28 Put_Line
(Enum
'Image (Value
) & Rest
(1 .. Last
));
32 when Data_Error
=> null;