diff --git a/gas/testsuite/ChangeLog b/gas/testsuite/ChangeLog
index e3aec5b7c8..447d3f6848 100644
--- a/gas/testsuite/ChangeLog
+++ b/gas/testsuite/ChangeLog
@@ -1,3 +1,9 @@
+2003-11-22  Alan Modra  <amodra@bigpond.net.au>
+
+	* gas/ppc/machine.s: New.
+	* gas/ppc/machine.d: New.
+	* gas/ppc/ppc.exp: Run it.
+
 2003-11-18  Maciej W. Rozycki  <macro@ds2.pg.gda.pl>
 
 	* gas/mips/lca-svr4pic.d: New test for the "lca" macro.
diff --git a/gas/testsuite/gas/ppc/machine.d b/gas/testsuite/gas/ppc/machine.d
new file mode 100644
index 0000000000..4c217596f0
--- /dev/null
+++ b/gas/testsuite/gas/ppc/machine.d
@@ -0,0 +1,9 @@
+#objdump: -s -j .text
+#name: PowerPC .machine test
+
+.*
+
+Contents of section \.text:
+ 0000 7c11eba6 7c100ba6 4c000066 00000200 .*
+ 0010 44000002 4c0000a4 7c000224 4e800020 .*
+ 0020 7c11eba6 .*
diff --git a/gas/testsuite/gas/ppc/machine.s b/gas/testsuite/gas/ppc/machine.s
new file mode 100644
index 0000000000..3c6abfa70a
--- /dev/null
+++ b/gas/testsuite/gas/ppc/machine.s
@@ -0,0 +1,15 @@
+	.machine "403"
+	.text
+	mtpid 0
+	.machine push
+	.machine "booke"
+	mtpid 0
+	.machine Any
+	rfci
+	attn
+	sc
+	rfsvc
+	tlbiel 0
+	blr
+	.machine pop
+	mtpid 0
diff --git a/gas/testsuite/gas/ppc/ppc.exp b/gas/testsuite/gas/ppc/ppc.exp
index b891a95caa..0dd4648f02 100644
--- a/gas/testsuite/gas/ppc/ppc.exp
+++ b/gas/testsuite/gas/ppc/ppc.exp
@@ -26,7 +26,8 @@ if { [istarget powerpc64*-*-*] || [istarget *-*-elf64*]} then {
 }
 
 if { [istarget powerpc*-*-*] } then {
-   run_dump_test "simpshft"
+    run_dump_test "simpshft"
+    run_dump_test "machine"
 
     if { [istarget powerpc-*-*aix*] } then {
 	run_dump_test "altivec_xcoff"