Commit a4538215 authored by Ian Lynagh's avatar Ian Lynagh

Add a test rn065 for trac #1578

parent 753c883d
module Rn065A where
data T = T { a :: Int }
...@@ -74,6 +74,7 @@ test('rn061', normal, compile, ['']) ...@@ -74,6 +74,7 @@ test('rn061', normal, compile, [''])
test('rn062', normal, compile, ['']) test('rn062', normal, compile, [''])
test('rn063', expect_broken(2136), compile, ['']) test('rn063', expect_broken(2136), compile, [''])
test('rn064', if_compiler_ge('ghc', '6.9', expect_broken(2137)), compile, ['']) test('rn064', if_compiler_ge('ghc', '6.9', expect_broken(2137)), compile, [''])
test('rn065', normal, multimod_compile, ['rn065', '-v0'])
test('T1972', if_compiler_lt('ghc', '6.9', expect_fail), compile, ['']) test('T1972', if_compiler_lt('ghc', '6.9', expect_fail), compile, [''])
......
{-# LANGUAGE RecordWildCards #-}
-- trac #1578
module Foo where
import Rn065A
f T{..} = a + 1
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