blob: 8439d3abf01d5c291c804115ac83e40deb70b157 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
|
{-
Check that we aren't making gcc misinterpret our strings as trigraphs.
#2968.
http://gcc.gnu.org/onlinedocs/cpp/Initial-processing.html
-}
module Main where
main :: IO ()
main = do putStrLn "??("
putStrLn "??)"
putStrLn "??<"
putStrLn "??>"
putStrLn "??="
putStrLn "??/"
putStrLn "??'"
putStrLn "??!"
putStrLn "??-"
|
