socket2.adb

用于进行gcc测试

--  { dg-do run }

with GNAT.Sockets; use GNAT.Sockets;
procedure socket2 is
   X : Character;
begin
   X := 'x';
   GNAT.Sockets.Initialize;
   declare
      H : Host_Entry_Type := Get_Host_By_Address (Inet_Addr ("127.0.0.1"));
   begin
      null;
   end;
end socket2;