1 files changed, 25 insertions, 0 deletions
diff --git a/testsuite/tests/module/base01/GHC/Base.hs b/testsuite/tests/module/base01/GHC/Base.hs
new file mode 100644
index 0000000000..9149f8544b
--- /dev/null
+++ b/testsuite/tests/module/base01/GHC/Base.hs
@@ -0,0 +1,25 @@
+
+module GHC.Base (module GHC.Base, Bool(..)) where
+
+import GHC.Prim
+import GHC.Types
+
+default ()
+
+class Eq a where
+    (==), (/=) :: a -> a -> Bool
+
+    x /= y = not (x == y)
+    x == y = not (x /= y)
+
+instance Eq Bool where
+    False == False = True
+    True == True = True
+    _ == _ = False
+
+not :: Bool -> Bool
+not True  = False
+not False = True
+
+inline x = x
+