diff --git a/ghc/tests/deriving/should_compile/drv010.hs b/ghc/tests/deriving/should_compile/drv010.hs
index e6814507990f51dc9998e2cd4c2e879b4fcb4bc1..621a2ec411c3554f460cbb9907afe8d029fe60c6 100644
--- a/ghc/tests/deriving/should_compile/drv010.hs
+++ b/ghc/tests/deriving/should_compile/drv010.hs
@@ -1,4 +1,4 @@
 --!!! deriving Enum on d. type with nullary constructors
 module ShouldSucceed where
 
-data AD = A | B | C | D deriving (Enum)
+data D = D1 deriving(Eq,Ord)