Commit 0ffa396d authored by Ben Gamari's avatar Ben Gamari Committed by Ben Gamari
Browse files

testsuite: Add test for #14272

Reviewers: austin

Subscribers: rwbarton, thomie

GHC Trac Issues: #14272

Differential Revision:
parent 57372a7c
import Data.Bits (bit)
main :: IO ()
main = putStrLn (show (f undefined))
f :: [Int] -> Int
f = sum . zipWith ((+) . bit) [0..] . map undefined . scanl undefined undefined
......@@ -279,3 +279,5 @@ test('T14140',
['$MAKE -s --no-print-directory T14140'])
test('T14272', normal, compile, [''])
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