OSDN Git Service

2008-03-29 Laurent GUERBY <laurent@guerby.net>
authorguerby <guerby@138bc75d-0d04-0410-961f-82ee72b054a4>
Sat, 29 Mar 2008 15:23:36 +0000 (15:23 +0000)
committerguerby <guerby@138bc75d-0d04-0410-961f-82ee72b054a4>
Sat, 29 Mar 2008 15:23:36 +0000 (15:23 +0000)
        * gnat.dg/socket2.adb: Remove since identical to socket1.adb.

git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@133717 138bc75d-0d04-0410-961f-82ee72b054a4

gcc/testsuite/ChangeLog
gcc/testsuite/gnat.dg/socket2.adb [deleted file]

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