| -- { dg-do run } | |
| procedure Array34 is | |
| type Arr is array (1 .. 6) of Short_Short_Integer; | |
| for Arr'Alignment use 4; | |
| type Rec is record | |
| A : Arr; | |
| B: Short_Integer; | |
| end record; | |
| pragma Pack (Rec); | |
| R : Rec; | |
| begin | |
| R.B := 31415; | |
| R.A := (others => 0); | |
| if R.B /= 31415 then | |
| raise Program_Error; | |
| end if; | |
| end; |