From 15ce62cae7d71fa336c2c0cfa24db81377a0bd50 Mon Sep 17 00:00:00 2001
From: simonpj <unknown>
Date: Tue, 7 Dec 1999 15:48:02 +0000
Subject: [PATCH] [project @ 1999-12-07 15:48:02 by simonpj] Add drvrun008
---
ghc/tests/deriving/should_run/drvrun008.hs | 9 +++++++++
ghc/tests/deriving/should_run/drvrun008.stdout | 0
2 files changed, 9 insertions(+)
create mode 100644 ghc/tests/deriving/should_run/drvrun008.hs
create mode 100644 ghc/tests/deriving/should_run/drvrun008.stdout
diff --git a/ghc/tests/deriving/should_run/drvrun008.hs b/ghc/tests/deriving/should_run/drvrun008.hs
new file mode 100644
index 000000000000..5a857d0d0cd3
--- /dev/null
+++ b/ghc/tests/deriving/should_run/drvrun008.hs
@@ -0,0 +1,9 @@
+{-# OPTIONS -funbox-strict-fields #-}
+-- !!! Check that -funbox-strict-fields doesn't mess up deriving
+-- !!! (it did in 4.04)
+
+module Main( main ) where
+
+data X = X !Int deriving Eq
+
+main = putStrLn (show (X 2 == X 2))
diff --git a/ghc/tests/deriving/should_run/drvrun008.stdout b/ghc/tests/deriving/should_run/drvrun008.stdout
new file mode 100644
index 000000000000..e69de29bb2d1
--
GitLab