[project @ 2001-08-22 12:24:41 by simonmar]

[ghc-hetmet.git] / ghc / tests / typecheck / should_fail / tcfail075.hs

diff --git a/ghc/tests/typecheck/should_fail/tcfail075.hs b/ghc/tests/typecheck/should_fail/tcfail075.hs
deleted file mode 100644 (file)
index 98447d4..0000000
--- a/ghc/tests/typecheck/should_fail/tcfail075.hs
+++ /dev/null
@@ -1,18 +0,0 @@
-{-# OPTIONS -fglasgow-exts #-}
-
--- !!! Test top-level unboxed types
-
-module ShouldFail where
-
-import PrelGHC
-
-x = 1#
-
-y :: Int#
-y = x +# 1#
-
-main =  let 
-         z = x -# y
-       in
-       if z ># 3# then putStrLn "Yes"
-                  else putStrLn "No"