diff --git a/gcc/testsuite/ChangeLog b/gcc/testsuite/ChangeLog
index 079be17bc78..4f4b404f6d2 100644
--- 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
index 8f58f3c3a96..00000000000
--- 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;