Subversion Repositories openrisc_2011-10-31

--  { dg-do run }

--  { dg-do run }

with Ada.Text_IO;

with Ada.Text_IO;

use  Ada.Text_IO;

use  Ada.Text_IO;

procedure Test_Enum_IO is

procedure Test_Enum_IO is

  type Enum is (Literal);

  type Enum is (Literal);

  package Enum_IO is new Enumeration_IO (Enum);

  package Enum_IO is new Enumeration_IO (Enum);

  use Enum_IO;

  use Enum_IO;

  File : File_Type;

  File : File_Type;

  Value: Enum;

  Value: Enum;

  Rest : String (1 ..30);

  Rest : String (1 ..30);

  Last : Natural;

  Last : Natural;

begin

begin

  Create (File, Mode => Out_File);

  Create (File, Mode => Out_File);

  Put_Line (File, "Literax0000000l note the 'l' at the end");

  Put_Line (File, "Literax0000000l note the 'l' at the end");

  Reset (File, Mode => In_File);

  Reset (File, Mode => In_File);

  Get (File, Value);

  Get (File, Value);

  Get_Line (File, Rest, Last);

  Get_Line (File, Rest, Last);

  Close (File);

  Close (File);

  Put_Line (Enum'Image (Value) & Rest (1 .. Last));

  Put_Line (Enum'Image (Value) & Rest (1 .. Last));

  raise Program_Error;

  raise Program_Error;

exception

exception

  when Data_Error => null;

  when Data_Error => null;

end Test_Enum_IO;

end Test_Enum_IO;