gcc/testsuite/gnat.dg/specs/small_alignment.ads


1
2
3
4
5
6
7
8
9
10
11
12
13

-- { dg-do compile }

package Small_Alignment is

  type Int is range -512 .. 511;
  for Int'Alignment use 1;

  type R is record
    I: Int;
  end record;
  Pragma Pack (R);

end Small_Alignment;