3 procedure Scalar_Mode_Agg_Compare is
7 Tag : String (1 .. 2); -- HImode
9 pragma Pack (Point); -- Tag possibly at bitpos 1
11 function My_Point return Point is
13 return (Mapped => True, Tag => "XX");
16 A, B : Point := My_Point;
18 -- The comparison below should find the two Tag fields equal and not
19 -- attempt to take their address, which might not be byte aligned.
21 if A.Tag /= B.Tag then