gcc/testsuite/gnat.dg/socket1.adb

   1 -- { dg-do run { target { ! { hppa*-*-hpux* *-*-solaris2* } } } }
   2
   3 with GNAT.Sockets; use GNAT.Sockets;
   4 procedure socket1 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 socket1;