diff --git a/gas/testsuite/ChangeLog b/gas/testsuite/ChangeLog
index a4ca2cb6265..08f4d5d5efe 100644
--- a/gas/testsuite/ChangeLog
+++ b/gas/testsuite/ChangeLog
@@ -1,9 +1,10 @@
-start-sanitize-m32rx
 Wed May 13 15:06:31 1998  Doug Evans  <devans@canuck.cygnus.com>
 
+	* gas/m32r/uppercase.[sd]: Test for HIGH,SHIGH,LOW,SDA.
+start-sanitize-m32rx
 	* gas/m32r/m32rx.d: Pass --enable-special to gas.
-
 end-sanitize-m32rx
+
 start-sanitize-sky
 Mon May 11 13:04:58 1998  Frank Ch. Eigler  <fche@cygnus.com>
 
diff --git a/gas/testsuite/gas/m32r/uppercase.d b/gas/testsuite/gas/m32r/uppercase.d
index 2736dea6138..46035fe3b5d 100644
--- a/gas/testsuite/gas/m32r/uppercase.d
+++ b/gas/testsuite/gas/m32r/uppercase.d
@@ -7,5 +7,20 @@
 Disassembly of section .text:
 
 00000000 <foo>:
-   0:	10 81 *	mv r0,r1
-   2:	1091 *	mvfc r0,cbr
+   0:	10 81 10 91 *	mv r0,r1 -> mvfc r0,cbr
+
+00000004 <high>:
+   4:	d0 c0 00 00 	seth r0,#0x0
+[ 	]*4: R_M32R_HI16_ULO	[.]text
+
+00000008 <shigh>:
+   8:	d0 c0 00 00 	seth r0,#0x0
+[ 	]*8: R_M32R_HI16_SLO	[.]text
+
+0000000c <low>:
+   c:	80 e0 00 0c 	or3 r0,r0,#0xc
+[ 	]*c: R_M32R_LO16	[.]text
+
+00000010 <sda>:
+  10:	80 a0 00 00 	add3 r0,r0,#0
+[ 	]*10: R_M32R_SDA16	sdavar