diff --git a/gas/testsuite/ChangeLog b/gas/testsuite/ChangeLog
index fdb3f03479..d2b4a1d8e1 100644
--- a/gas/testsuite/ChangeLog
+++ b/gas/testsuite/ChangeLog
@@ -1,3 +1,8 @@
+Mon Sep  8 14:21:23 1997  Doug Evans  <dje@canuck.cygnus.com>
+
+	* gas/m32r/high-1.[ds]: New testcase.
+	* gas/m32r/m32r.exp: Run it.
+
 Mon Aug 25 11:04:24 1997  Doug Evans  <dje@canuck.cygnus.com>
 
 	* gas/m32r/relax-1.[ds]: New testcase.
diff --git a/gas/testsuite/gas/m32r/.Sanitize b/gas/testsuite/gas/m32r/.Sanitize
index 79dc62493d..59b31ecc2a 100644
--- a/gas/testsuite/gas/m32r/.Sanitize
+++ b/gas/testsuite/gas/m32r/.Sanitize
@@ -26,6 +26,8 @@ Things-to-keep:
 allinsn.exp
 allinsn.d
 allinsn.s
+high-1.d
+high-1.s
 m32r.exp
 relax-1.d
 relax-1.s
diff --git a/gas/testsuite/gas/m32r/high-1.s b/gas/testsuite/gas/m32r/high-1.s
new file mode 100644
index 0000000000..8a5d1d10ab
--- /dev/null
+++ b/gas/testsuite/gas/m32r/high-1.s
@@ -0,0 +1,14 @@
+; Test high/shigh handling.
+
+foo:
+	seth r4,#high(foo+0x10000)
+	or3  r4,r4,#low(foo+0x10000)
+
+	seth r4,#high(0x12348765)
+	or3  r4,r4,#low(0x12348765)
+
+	seth r4,#shigh(0x12348765)
+	or3  r4,r4,#low(0x12348765)
+
+	seth r4,#shigh(0x87654321)
+	or3  r4,r4,#low(0x87654321)