4 files changed, 13 insertions, 1 deletions
diff --git a/testsuite/tests/rename/should_compile/Makefile b/testsuite/tests/rename/should_compile/Makefile
index 69e899b7dd..6e41534ca8 100644
--- a/testsuite/tests/rename/should_compile/Makefile
+++ b/testsuite/tests/rename/should_compile/Makefile
@@ -27,12 +27,17 @@ T3449:
 	'$(TEST_HC)' $(TEST_HC_OPTS) -Wall -c T3449.hs
 
 T4239:
-	$(RM) T4239A.hi T4239A.o
+	$(RM) TT4239A.hi T4239A.o
 	$(RM) T4239.hi  T4239.o T4239.imports
 	'$(TEST_HC)' $(TEST_HC_OPTS) -c T4239A.hs
 	'$(TEST_HC)' $(TEST_HC_OPTS) -c T4239.hs -ddump-minimal-imports
 	cat T4239.imports
 
+T15994:
+	$(RM) T15994.hi T15994.o T15994.imports
+	'$(TEST_HC)' $(TEST_HC_OPTS) -c T15994.hs -ddump-minimal-imports
+	cat T15994.imports
+
 T4240:
 	$(RM) T4240A.hi T4240A.o
 	$(RM) T4240B.hi T4240B.o
diff --git a/testsuite/tests/rename/should_compile/T15994.hs b/testsuite/tests/rename/should_compile/T15994.hs
new file mode 100644
index 0000000000..ff7c56f65c
--- /dev/null
+++ b/testsuite/tests/rename/should_compile/T15994.hs
@@ -0,0 +1,5 @@
+module T15994 where
+
+import System.IO
+
+f = [ReadMode, ReadMode]
diff --git a/testsuite/tests/rename/should_compile/T15994.stdout b/testsuite/tests/rename/should_compile/T15994.stdout
new file mode 100644
index 0000000000..329734980c
--- /dev/null
+++ b/testsuite/tests/rename/should_compile/T15994.stdout
@@ -0,0 +1 @@
+import System.IO ( IOMode(ReadMode) )
diff --git a/testsuite/tests/rename/should_compile/all.T b/testsuite/tests/rename/should_compile/all.T
index 86f04d0ea9..b6c06c151c 100644
--- a/testsuite/tests/rename/should_compile/all.T
+++ b/testsuite/tests/rename/should_compile/all.T
@@ -162,3 +162,4 @@ test('T14487', [], multimod_compile, ['T14487', '-v0'])
 test('T14747', [], multimod_compile, ['T14747', '-v0'])
 test('T15149', [], multimod_compile, ['T15149', '-v0'])
 test('T13064', normal, compile, [''])
+test('T15994', [], run_command, ['$MAKE -s --no-print-directory T15994'])