1package Addr8 is
2
3   type Bytes is array (1 .. 4) of Character;
4   for Bytes'Alignment use 4;
5
6   procedure Proc (B: Bytes);
7
8end Addr8;
9