Commit e3a692a4 by Laurent GUERBY Committed by Laurent Guerby

socket2.adb: Remove since identical to socket1.adb.

2008-03-29  Laurent GUERBY  <laurent@guerby.net>

        * gnat.dg/socket2.adb: Remove since identical to socket1.adb.

From-SVN: r133717
parent 2d2ca637
2008-03-29 Laurent GUERBY <laurent@guerby.net>
* gnat.dg/socket2.adb: Remove since identical to socket1.adb.
2008-03-29 Paul Thomas <pault@gcc.gnu.org> 2008-03-29 Paul Thomas <pault@gcc.gnu.org>
PR fortran/35698 PR fortran/35698
-- { 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;
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment