1-- { dg-do compile } 2-- { dg-options "-gnatws" } 3with FRUnaligned1; use FRUnaligned1; 4function FRUnaligned return r is 5 ss : s; 6begin 7 return ss.y; 8end; 9