diff --git a/gcc/testsuite/ChangeLog b/gcc/testsuite/ChangeLog
index 33d6175d93f..0c4fb410ea8 100644
--- a/gcc/testsuite/ChangeLog
+++ b/gcc/testsuite/ChangeLog
@@ -1,3 +1,7 @@
+2010-10-08  Arnaud Charlet  <charlet@adacore.com>
+
+	* gnat.dg/interface5.adb: Compile with warnings disabled.
+
 2010-10-07  Nicola Pero  <nicola.pero@meta-innovation.com>
 
 	* obj-c++.dg/encode-10.mm: New testcase.
diff --git a/gcc/testsuite/gnat.dg/interface5.adb b/gcc/testsuite/gnat.dg/interface5.adb
index 80d240a9fcf..65d19a6cb73 100644
--- a/gcc/testsuite/gnat.dg/interface5.adb
+++ b/gcc/testsuite/gnat.dg/interface5.adb
@@ -1,4 +1,5 @@
 --  { dg-do compile }
+--  { dg-options "-gnatws" }
 package body interface5 is
    function F (Object : Child) return access Child is
    begin