diff --git a/gas/testsuite/ChangeLog b/gas/testsuite/ChangeLog
index 93d8ad40a36..37041ffc2d3 100644
--- a/gas/testsuite/ChangeLog
+++ b/gas/testsuite/ChangeLog
@@ -1,3 +1,8 @@
+Tue Aug  8 17:11:39 1995  Ian Lance Taylor  <ian@cygnus.com>
+
+	* gas/mri/common.s, gas/mri/common.d: New test.
+	* gas/mri/mri.exp: Run it.
+
 Mon Aug  7 22:39:28 1995  Ian Lance Taylor  <ian@cygnus.com>
 
 	* gas/mri/mri.exp: Add setup_xfail for a29k*-*-* for constants
diff --git a/gas/testsuite/gas/mri/.Sanitize b/gas/testsuite/gas/mri/.Sanitize
index e63b25eee1c..19e47f912eb 100644
--- a/gas/testsuite/gas/mri/.Sanitize
+++ b/gas/testsuite/gas/mri/.Sanitize
@@ -26,6 +26,8 @@ Things-to-keep:
 
 char.d
 char.s
+common.d
+common.s
 constants.d
 constants.s
 equ.d
diff --git a/gas/testsuite/gas/mri/common.d b/gas/testsuite/gas/mri/common.d
new file mode 100644
index 00000000000..c1c1530c213
--- /dev/null
+++ b/gas/testsuite/gas/mri/common.d
@@ -0,0 +1,8 @@
+#nm: --extern-only
+#name: MRI common sections
+#as: -M
+
+# Test MRI common sections
+
+0+08 C 00com2
+0+08 C com1
diff --git a/gas/testsuite/gas/mri/common.s b/gas/testsuite/gas/mri/common.s
new file mode 100644
index 00000000000..58b4c6c5ce3
--- /dev/null
+++ b/gas/testsuite/gas/mri/common.s
@@ -0,0 +1,11 @@
+; Test MRI common sections
+	common	com1
+	ds.l	1
+com2	common 00
+	ds.l	1
+incom	ds.l	1
+	common	com1
+	ds.l	1
+	.data
+	dc.l	com1
+	dc.l	incom
diff --git a/gas/testsuite/gas/mri/mri.exp b/gas/testsuite/gas/mri/mri.exp
index a8bd76ca31e..b97a7d11886 100644
--- a/gas/testsuite/gas/mri/mri.exp
+++ b/gas/testsuite/gas/mri/mri.exp
@@ -2,12 +2,21 @@
 # Test the MRI compatibility mode.
 #
 run_dump_test label
+
 setup_xfail "hppa*-*-*"
 run_dump_test equ
+
 setup_xfail "hppa*-*-*"
 setup_xfail "a29k*-*-*"
 run_dump_test constants
+
 run_dump_test float
+
 run_dump_test char
+
 setup_xfail "hppa*-*-*"
 run_dump_test expr
+
+setup_xfail "alpha*-*-*"
+setup_xfail "sparc*-*-*"
+run_dump_test common