Commit 41f01208 authored by Simon Marlow's avatar Simon Marlow
Browse files

add test for #3674

parent 5ac39897
{-# OPTIONS -F -pgmF ./3674_pre #-}
module Test3674 where
data Foo a where MkFoo :: Foo a
import System.Environment
main = do
[_,inf,outf] <- getArgs
s <- readFile inf
writeFile outf ("{-# LANGUAGE GADTs #-}\n" ++ s)
......@@ -477,3 +477,10 @@ mode001:
shared001:
$(RM) Shared001.hi Shared001.o HSdll.dll.a HSdll.dll Shared001_stub.*
"$(TEST_HC)" -shared Shared001.hs
# -----------------------------------------------------------------------------
3674:
$(RM) 3674*.o 3674*.hi 3674_pre
"$(TEST_HC)" --make 3674_pre.hs
"$(TEST_HC)" --make 3674.hs
......@@ -329,3 +329,5 @@ test('dynHelloWorld',
[''])
test('2464', normal, compile, [''])
test('3674', ignore_output, run_command,
['$MAKE -s --no-print-directory 3674'])
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment