path: root/testsuite/tests/ghc-regress/ghc-e/should_run/3890.hs

module Main (main) where

import System.Exit
import System.IO

main :: IO ()
main = do putStrLn "Q1"
          exitFailure
          putStrLn "Q2"