diff --git a/gcc/testsuite/ChangeLog b/gcc/testsuite/ChangeLog
index f8a7eeb91c8..067dc7d4972 100644
--- a/gcc/testsuite/ChangeLog
+++ b/gcc/testsuite/ChangeLog
@@ -1,3 +1,7 @@
+2010-03-16  Rainer Orth  <ro@CeBiTec.Uni-Bielefeld.DE>
+
+	* gnat.dg/socket1.adb: Disable on *-*-solaris2*.
+
 2010-03-16  Richard Guenther  <rguenther@suse.de>
 
 	PR middle-end/43379
diff --git a/gcc/testsuite/gnat.dg/socket1.adb b/gcc/testsuite/gnat.dg/socket1.adb
index f1adf7a1f2c..a6bdade304b 100644
--- a/gcc/testsuite/gnat.dg/socket1.adb
+++ b/gcc/testsuite/gnat.dg/socket1.adb
@@ -1,4 +1,4 @@
--- { dg-do run }
+-- { dg-do run { target { ! "*-*-solaris2*" } } }
 
 with GNAT.Sockets; use GNAT.Sockets;
 procedure socket1 is