testsuite/tests/driver/T3389.hs


1
2
3
4
5
6
7
8
9
10
11
12


{-# LANGUAGE CPP #-}
{-# OPTIONS_GHC -optP -C -optP -ffreestanding #-}

#define A 'a'

main :: IO ()
main = putStrLn [A,
-- /*
                 'b',
-- */
                 'c']