diff --git a/gcc/testsuite/ChangeLog b/gcc/testsuite/ChangeLog
index 524c9f449ab6..e72e84e416df 100644
--- a/gcc/testsuite/ChangeLog
+++ b/gcc/testsuite/ChangeLog
@@ -1,3 +1,8 @@
+2011-05-29  Eric Botcazou  <ebotcazou@adacore.com>
+
+	* gnat.dg/boolean_subtype.adb: Rename to...
+	* gnat.dg/boolean_subtype1.adb: ...this.
+
 2011-05-28  Jason Merrill  <jason@redhat.com>
 
 	* g++.dg/cpp0x/lambda/lambda-syntax1.C: New.
diff --git a/gcc/testsuite/gnat.dg/boolean_subtype.adb b/gcc/testsuite/gnat.dg/boolean_subtype1.adb
similarity index 96%
rename from gcc/testsuite/gnat.dg/boolean_subtype.adb
rename to gcc/testsuite/gnat.dg/boolean_subtype1.adb
index 3976d7992333..60e2199dba13 100644
--- a/gcc/testsuite/gnat.dg/boolean_subtype.adb
+++ b/gcc/testsuite/gnat.dg/boolean_subtype1.adb
@@ -1,7 +1,7 @@
 -- { dg-do compile }
 -- { dg-options "-O2" }
 
-procedure boolean_subtype is
+procedure Boolean_Subtype1 is
 
    subtype Component_T is Boolean;