Commit 08dc2bd0 authored by Simon Peyton Jones's avatar Simon Peyton Jones
Browse files

Add test for floating strict bindings

parent 2861756a
......@@ -20,3 +20,5 @@ test('simpl015', only_ways(['opt']), compile, [''])
test('spec001', skip_if_fast, compile, [''])
test('spec002', normal, compile, [''])
test('strict-float', normal, compile, [''])
-- Test from Kirsten Chevalier
-- Tests the "strict bindings getting floated to top" bug in the floater
module B (bernoulli) where
powers = [2..] : powers
neg_powers = map (zip (iterate id True)) powers
bernoulli = head powers
where powers = head neg_powers
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