Subversion Repositories openrisc

-- { dg-do compile }

procedure Pack5 is

  type Kind is (v1, v2, v3);

  type Error (k : Kind := Kind'First) is record

    case k is

    when v1 =>

      null;

    when v2 =>

      null;

    when Others =>

      B : Boolean;

    end case;

  end record;

  pragma Pack (Error);

  for Error'Size use 16;

  No_Error: constant Error := (k => v2);

  type R (B : Boolean) is record

    E : Error;

  end record;

  pragma Pack(R);

  type Ptr is access R;

  C : Ptr := new R (True);

begin

  C.E := No_Error;

end;