blob: 14f3cb8d145a0435fe13accd7fa8f59f1a1feaf2 (
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.
Trac #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 "??-"
|
