7 files changed, 32 insertions, 0 deletions
diff --git a/testsuite/tests/ghci/prog007/A.hs b/testsuite/tests/ghci/prog007/A.hs
new file mode 100644
index 0000000000..f4694d7a9c
--- /dev/null
+++ b/testsuite/tests/ghci/prog007/A.hs
@@ -0,0 +1,8 @@
+module A where
+
+import {-# SOURCE #-} C
+
+class Class1 a
+
+data A = A deriving Show
+
diff --git a/testsuite/tests/ghci/prog007/B.hs b/testsuite/tests/ghci/prog007/B.hs
new file mode 100644
index 0000000000..ec64b00fa4
--- /dev/null
+++ b/testsuite/tests/ghci/prog007/B.hs
@@ -0,0 +1,7 @@
+module B where
+
+import A
+
+data B = B deriving Show
+
+instance Class1 B
diff --git a/testsuite/tests/ghci/prog007/C.hs b/testsuite/tests/ghci/prog007/C.hs
new file mode 100644
index 0000000000..8273d6bdda
--- /dev/null
+++ b/testsuite/tests/ghci/prog007/C.hs
@@ -0,0 +1,10 @@
+{-# LANGUAGE OverlappingInstances #-}
+
+module C where
+
+import A
+import B
+
+class Class1 a => Class2 a
+
+instance Class2 B
diff --git a/testsuite/tests/ghci/prog007/C.hs-boot b/testsuite/tests/ghci/prog007/C.hs-boot
new file mode 100644
index 0000000000..b81773302e
--- /dev/null
+++ b/testsuite/tests/ghci/prog007/C.hs-boot
@@ -0,0 +1,2 @@
+
+module C where
diff --git a/testsuite/tests/ghci/prog007/ghci.prog007.script b/testsuite/tests/ghci/prog007/ghci.prog007.script
new file mode 100644
index 0000000000..2c6d817d0c
--- /dev/null
+++ b/testsuite/tests/ghci/prog007/ghci.prog007.script
@@ -0,0 +1,2 @@
+:l B
+A
diff --git a/testsuite/tests/ghci/prog007/ghci.prog007.stdout b/testsuite/tests/ghci/prog007/ghci.prog007.stdout
new file mode 100644
index 0000000000..f70f10e4db
--- /dev/null
+++ b/testsuite/tests/ghci/prog007/ghci.prog007.stdout
@@ -0,0 +1 @@
+A
diff --git a/testsuite/tests/ghci/prog007/prog007.T b/testsuite/tests/ghci/prog007/prog007.T
new file mode 100644
index 0000000000..28f19e5602
--- /dev/null
+++ b/testsuite/tests/ghci/prog007/prog007.T
@@ -0,0 +1,2 @@
+# testcase for bug #936
+test('ghci.prog007', normal, ghci_script, ['ghci.prog007.script'])