testsuite/tests/driver/should_fail/T12752.hs


1
2
3
4
5
6
7
8
9
10

{-# LANGUAGE CPP #-}

-- This should fail to compile with "ghc -Wcpp-undef -Werror ...".
#if this_cpp_identifier_does_not_exist
message :: String
message = "This is wrong!"
#endif

main :: IO ()
main = putStrLn "Hello"