2 -- { dg-options "-flto" { target lto } }
4 with Ada.Streams; use Ada.Streams;
9 (S : not null access Root_Stream_Type'Class;
12 subtype M_SEA is Stream_Element_Array (1 .. V'Size / Stream_Element'Size);
14 for Bytes'Address use V'Address;
15 pragma Import (Ada, Bytes);
17 Ada.Streams.Write (S.all, Bytes);