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

diff --git a/gcc/testsuite/ChangeLog b/gcc/testsuite/ChangeLog
index 079be17bc78f2cbf99575721246f7e0ee5f4c3b5..4f4b404f6d2925dcc2af746c010fe5ac27638831 100644 (file)
--- a/gcc/testsuite/ChangeLog
+++ b/gcc/testsuite/ChangeLog
@@ -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

diff --git a/gcc/testsuite/gnat.dg/socket2.adb b/gcc/testsuite/gnat.dg/socket2.adb
deleted file mode 100644 (file)
index 8f58f3c..0000000
--- a/gcc/testsuite/gnat.dg/socket2.adb
+++ /dev/null
@@ -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;