OSDN Git Service

2008-03-29 Matthias Klose <doko@ubuntu.com>
[pf3gnuchains/gcc-fork.git] / 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;