diff --git a/ghc/tests/deriving/should_run/drvrun008.hs b/ghc/tests/deriving/should_run/drvrun008.hs new file mode 100644 index 0000000000000000000000000000000000000000..5a857d0d0cd38468bb34804218849f61bd4feddd --- /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 0000000000000000000000000000000000000000..e69de29bb2d1d6434b8b29ae775ad8c2e48c5391