gcc/testsuite/gnat.dg/frunaligned.adb

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