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;