gcc/testsuite/gnat.dg/socket1.adb


1
2
3
4
5
6
7
8
9
10
11
12
13
14

-- { dg-do run { target { ! { hppa*-*-hpux* *-*-solaris2* } } } }

with GNAT.Sockets; use GNAT.Sockets;
procedure socket1 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 socket1;