Subversion Repositories openrisc

-- { dg-do compile }

-- { dg-do compile }

-- { dg-options "-gnatws" }

-- { dg-options "-gnatws" }

procedure Pack8 is

procedure Pack8 is

  type R is record

  type R is record

     I : Integer;

     I : Integer;

     a, b : Character;

     a, b : Character;

  end record;

  end record;

  type Ar1 is array (1..4) of R;

  type Ar1 is array (1..4) of R;

  type Ar2 is array (1..4) of R;

  type Ar2 is array (1..4) of R;

  pragma Pack (Ar2);

  pragma Pack (Ar2);

  type R2 is record

  type R2 is record

    A : Ar2;

    A : Ar2;

  end record;

  end record;

  for R2 use record

  for R2 use record

    A at 0 range 0 .. 48*4-1-1;  -- { dg-error "too small" }

    A at 0 range 0 .. 48*4-1-1;  -- { dg-error "too small" }

  end record;

  end record;

  X : Ar1;

  X : Ar1;

  Y : Ar2;

  Y : Ar2;

begin

begin

  Y (1) := X (1);

  Y (1) := X (1);

end;

end;