1 files changed, 14 insertions, 0 deletions
diff --git a/gcc/testsuite/gnat.dg/socket1.adb b/gcc/testsuite/gnat.dg/socket1.adb
new file mode 100644
index 000000000..a6bdade30
--- /dev/null
+++ b/gcc/testsuite/gnat.dg/socket1.adb
@@ -0,0 +1,14 @@
+-- { dg-do run { target { ! "*-*-solaris2*" } } }
+
+with GNAT.Sockets; use GNAT.Sockets;
+procedure socket1 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 socket1;