gcc-4.9/gcc/testsuite/gnat.dg/frunaligned.adb


1
2
3
4
5
6
7
8

--  { dg-do compile }
--  { dg-options "-gnatws" }
with FRUnaligned1; use FRUnaligned1;
function FRUnaligned return r is
   ss : s;
begin
   return ss.y;
end;