2 -- { dg-options "-gnatws" }
4 with Misaligned_Param_Pkg;
6 procedure Misaligned_Param is
8 procedure Channel_Eth (Status : out Integer; Kind : out Integer);
10 pragma Import (External, Channel_Eth);
11 pragma Import_Valued_Procedure
12 (Channel_Eth, "channel_eth", (Integer, Integer), (VALUE, REFERENCE));
14 type Channel is record
18 pragma Pack (Channel);
25 Channel_Eth (Status => Status, Kind => MyChan.Kind);
27 if Mychan.Kind = 0 then