Add test for T7878

5 files changed, 22 insertions, 1 deletions

diff --git a/testsuite/tests/generics/T7878.hs b/testsuite/tests/generics/T7878.hs
new file mode 100644
index 0000000000..a2a09dc24c
--- /dev/null
+++ b/testsuite/tests/generics/T7878.hs
@@ -0,0 +1,3 @@
+module T7878C where
+
+import T7878A
diff --git a/testsuite/tests/generics/T7878A.hs b/testsuite/tests/generics/T7878A.hs
new file mode 100644
index 0000000000..7f923d767a
--- /dev/null
+++ b/testsuite/tests/generics/T7878A.hs
@@ -0,0 +1,7 @@
+{-# LANGUAGE DeriveGeneric #-}
+module T7878A where
+
+import T7878B
+import GHC.Generics
+
+data Test deriving Generic
diff --git a/testsuite/tests/generics/T7878A.hs-boot b/testsuite/tests/generics/T7878A.hs-boot
new file mode 100644
index 0000000000..f45d1d05f5
--- /dev/null
+++ b/testsuite/tests/generics/T7878A.hs-boot
@@ -0,0 +1,3 @@
+module T7878A where
+
+data Test -- The panic occurs regardless of whether this line is included
diff --git a/testsuite/tests/generics/T7878B.hs b/testsuite/tests/generics/T7878B.hs
new file mode 100644
index 0000000000..6e38a7b928
--- /dev/null
+++ b/testsuite/tests/generics/T7878B.hs
@@ -0,0 +1,3 @@
+module T7878B where
+
+import {-# SOURCE #-} T7878A
diff --git a/testsuite/tests/generics/all.T b/testsuite/tests/generics/all.T
index 7a88487fec..267fbe6dcf 100644
--- a/testsuite/tests/generics/all.T
+++ b/testsuite/tests/generics/all.T
@@ -24,4 +24,9 @@ test('GenCannotDoRep1_4', normal, compile_fail, [''])
 test('GenCannotDoRep1_5', normal, compile_fail, [''])
 test('GenCannotDoRep1_6', normal, compile_fail, [''])
 test('GenCannotDoRep1_7', normal, compile_fail, [''])
-test('GenCannotDoRep1_8', normal, compile_fail, [''])
\ No newline at end of file
+test('GenCannotDoRep1_8', normal, compile_fail, [''])
+
+test('T7878', extra_clean(['T7878A.o'     ,'T7878A.hi'
+                          ,'T7878A.o-boot','T7878A.hi-boot'
+                          ,'T7878B.o'     ,'T7878B.hi']), 
+              multimod_compile, ['T7878', '-v0'])