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
This commit is contained in:
Laurent GUERBY 2008-03-29 15:23:36 +00:00 committed by Laurent Guerby
parent 2d2ca637d9
commit e3a692a4cb
2 changed files with 4 additions and 14 deletions

View file

@ -1,3 +1,7 @@
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>
PR fortran/35698

View file

@ -1,14 +0,0 @@
-- { 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;