gcc/testsuite/gnat.dg/socket2.adb

   1 --  { dg-do run }
   2
   3 with GNAT.Sockets; use GNAT.Sockets;
   4 procedure socket2 is
   5    X : Character;
   6 begin
   7    X := 'x';
   8    GNAT.Sockets.Initialize;
   9    declare
  10       H : Host_Entry_Type := Get_Host_By_Address (Inet_Addr ("127.0.0.1"));
  11    begin
  12       null;
  13    end;
  14 end socket2;