Subversion Repositories openrisc

-- { dg-do compile }

-- { dg-do compile }

with Ada.Streams.Stream_IO; use Ada.Streams.Stream_IO;

with Ada.Streams.Stream_IO; use Ada.Streams.Stream_IO;

procedure Unc is

procedure Unc is

   type Arr is array (1..4) of integer;

   type Arr is array (1..4) of integer;

   type Bytes is array (positive range <>) of Character;

   type Bytes is array (positive range <>) of Character;

   type Buffer (D : Boolean := False) is record

   type Buffer (D : Boolean := False) is record

      case D is

      case D is

        when False =>

        when False =>

           Chars: Bytes (1..16);

           Chars: Bytes (1..16);

        when True =>

        when True =>

           Values : Arr;

           Values : Arr;

      end case;

      end case;

   end record;

   end record;

--

--

   pragma Unchecked_Union (Buffer);

   pragma Unchecked_Union (Buffer);

   pragma Warnings (Off);

   pragma Warnings (Off);

   Val : Buffer;

   Val : Buffer;

--      

--      

   F : File_Type;

   F : File_Type;

   S : Stream_Access;

   S : Stream_Access;

begin

begin

   Create (F, Out_File);

   Create (F, Out_File);

   S := Stream (F);

   S := Stream (F);

   Buffer'Output (S, Val);

   Buffer'Output (S, Val);

end;

end;