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:
parent
2d2ca637d9
commit
e3a692a4cb
2 changed files with 4 additions and 14 deletions
|
@ -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
|
||||
|
|
|
@ -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;
|
Loading…
Add table
Reference in a new issue