From e3a692a4cb349b4cd9bd26d1fc142cc17c2c6910 Mon Sep 17 00:00:00 2001 From: Laurent GUERBY Date: Sat, 29 Mar 2008 15:23:36 +0000 Subject: [PATCH] socket2.adb: Remove since identical to socket1.adb. 2008-03-29 Laurent GUERBY * gnat.dg/socket2.adb: Remove since identical to socket1.adb. From-SVN: r133717 --- gcc/testsuite/ChangeLog | 4 ++++ gcc/testsuite/gnat.dg/socket2.adb | 14 -------------- 2 files changed, 4 insertions(+), 14 deletions(-) delete mode 100644 gcc/testsuite/gnat.dg/socket2.adb 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 + + * gnat.dg/socket2.adb: Remove since identical to socket1.adb. + 2008-03-29 Paul Thomas 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; -- 2.30.2