blob: a57e87227e08a45e6f08f18ff4f0f38f970bbd51 [file] [log] [blame]
-- { dg-do compile }
-- { dg-options "-gnatws" }
with FRUnaligned1; use FRUnaligned1;
function FRUnaligned return r is
ss : s;
begin
return ss.y;
end;