Commit d38ad948 authored by simonmar's avatar simonmar
Browse files

[project @ 2005-10-25 12:53:59 by simonmar]

add LANGUAGE pragma tests
parent 41749c21
......@@ -45,3 +45,4 @@ test('read034', expect_fail_if_compiler_type('hugs'), compile, [''])
test('read036', normal, compile, [''])
test('read037', normal, compile, [''])
test('read038', normal, compile, [''])
test('read039', normal, compile, ['-fno-code'])
{-# LANGUAGE ForeignFunctionInterface, CPP #-}
-- Test the LANGUAGE pragma
module ShouldCompile where
#if 1
foreign import ccall "foo" foo :: Int -> IO Int
#endif
......@@ -35,3 +35,5 @@ test('read026', normal, compile_fail, [''])
test('read027', expect_fail_if_compiler_type('ghc'), compile_fail, [''])
test('read028', normal, compile_fail, [''])
test('read029', normal, compile_fail, [''])
test('read030', normal, compile_fail, [''])
read029.hs:1:0: cannot parse LANGUAGE pragma
{-# LANGUAGE ExtensibleRecords, RestrictedTypeSynonyms, HereDocuments, UnsafeOverlappingInstances, NamedFieldPuns #-}
read030.hs:1:0:
unsupported extensions: ExtensibleRecords,RestrictedTypeSynonyms,HereDocuments,UnsafeOverlappingInstances,NamedFieldPuns
Supports Markdown
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