diff --git a/sim/testsuite/ChangeLog b/sim/testsuite/ChangeLog
index 4015fa27be..1a116b4a8f 100644
--- a/sim/testsuite/ChangeLog
+++ b/sim/testsuite/ChangeLog
@@ -1,3 +1,10 @@
+start-sanitize-m32rx
+Fri May 15 17:31:15 1998  Doug Evans  <devans@seba.cygnus.com>
+
+	* sim/m32r/allinsn.exp: Pass --m32rx-enable-special to gas.
+	* sim/m32r/misc.exp: Ditto.
+
+end-sanitize-m32rx
 Thu May 14 11:48:35 1998  Doug Evans  <devans@canuck.cygnus.com>
 
 	* config/default.exp (CC,SIM): Delete.
diff --git a/sim/testsuite/sim/m32r/allinsn.exp b/sim/testsuite/sim/m32r/allinsn.exp
new file mode 100644
index 0000000000..3f63acee21
--- /dev/null
+++ b/sim/testsuite/sim/m32r/allinsn.exp
@@ -0,0 +1,22 @@
+# M32R simulator testsuite.
+
+if [istarget m32r*-*-*] {
+    # load support procs
+    # load_lib cgen.exp
+
+    # start-sanitize-m32rx
+    # FIXME: This should live in common place.
+    set opts(as,m32rx) "-m32rx --m32rx-enable-special"
+    # end-sanitize-m32rx
+
+    # The .cgs suffix is for "cgen .s".
+    foreach src [lsort [glob -nocomplain $srcdir/$subdir/*.cgs]] {
+	# If we're only testing specific files and this isn't one of them,
+	# skip it.
+	if ![runtest_file_p $runtests $src] {
+	    continue
+	}
+
+	run_sim_test $src
+    }
+}
diff --git a/sim/testsuite/sim/m32r/misc.exp b/sim/testsuite/sim/m32r/misc.exp
new file mode 100644
index 0000000000..38fe0a1417
--- /dev/null
+++ b/sim/testsuite/sim/m32r/misc.exp
@@ -0,0 +1,22 @@
+# Miscellaneous M32R simulator testcases
+
+if [istarget m32r*-*-*] {
+    # load support procs
+    # load_lib cgen.exp
+
+    # start-sanitize-m32rx
+    # FIXME: This should live in common place.
+    set opts(as,m32rx) "-m32rx --m32rx-enable-special"
+    # end-sanitize-m32rx
+
+    # The .ms suffix is for "miscellaneous .s".
+    foreach src [lsort [glob -nocomplain $srcdir/$subdir/*.ms]] {
+	# If we're only testing specific files and this isn't one of them,
+	# skip it.
+	if ![runtest_file_p $runtests $src] {
+	    continue
+	}
+
+	run_sim_test $src
+    }
+}