diff --git a/gas/testsuite/ChangeLog b/gas/testsuite/ChangeLog
index cab5e4bdba..1859b5c59b 100644
--- a/gas/testsuite/ChangeLog
+++ b/gas/testsuite/ChangeLog
@@ -1,3 +1,9 @@
+2007-11-12  Tristan Gingold  <gingold@adacore.com>
+
+	* gas/ppc/regnames.d: New.
+	* gas/ppc/regnames.s: Likewise.
+	* gas/ppc/ppc.exp: Run it.
+
 2007-11-07  Tristan Gingold  <gingold@adacore.com>
 
 	* ia64-dis.c (print_insn_ia64): Generate symbolic names for cr
diff --git a/gas/testsuite/gas/ppc/ppc.exp b/gas/testsuite/gas/ppc/ppc.exp
index 69d1f4a9ee..817f505e5a 100644
--- a/gas/testsuite/gas/ppc/ppc.exp
+++ b/gas/testsuite/gas/ppc/ppc.exp
@@ -30,6 +30,7 @@ if { [istarget powerpc64*-*-*] || [istarget *-*-elf64*]} then {
 if { [istarget powerpc*-*-*] } then {
     run_dump_test "simpshft"
     run_dump_test "machine"
+    run_dump_test "regnames"
 
     if { [istarget powerpc-*-*aix*] } then {
 	run_dump_test "altivec_xcoff"
diff --git a/gas/testsuite/gas/ppc/regnames.d b/gas/testsuite/gas/ppc/regnames.d
new file mode 100644
index 0000000000..ebc6b4267f
--- /dev/null
+++ b/gas/testsuite/gas/ppc/regnames.d
@@ -0,0 +1,8 @@
+#as: -mregnames
+#objdump: -s -j .text
+#name: PowerPC symbolic regnames
+
+.*
+
+Contents of section \.text:
+ 0000 4fbdcb82 88850004 .*
diff --git a/gas/testsuite/gas/ppc/regnames.s b/gas/testsuite/gas/ppc/regnames.s
new file mode 100644
index 0000000000..dc15513e15
--- /dev/null
+++ b/gas/testsuite/gas/ppc/regnames.s
@@ -0,0 +1,3 @@
+	.text
+	cror 4*%cr7+gt,%cr7*4+gt,4*%cr6+gt
+	lbz r4,4(r5)