Commit 0b4b8c0a authored by Ian Lynagh's avatar Ian Lynagh
Browse files

Add tests for trac#249 and #931

parent 04f38aeb
TOP=../../..
include $(TOP)/mk/boilerplate.mk
include $(TOP)/mk/test.mk
TOP=../../../..
include $(TOP)/mk/boilerplate.mk
include $(TOP)/mk/test.mk
def f( opts ):
opts.only_ways = filter(lambda x: 'prof' in x, config.run_ways)
setTestOpts(f)
# We need to run prof001 and prof002 all ways, as the compile succeeds
# due to the extra flags added for the profiling ways.
test('prof001', only_ways([]), compile, ['-prof -caf-all'])
test('prof002', only_ways([]), compile, ['-prof -caf-all'])
-- This tests trac #931
module Main where
x = f [1..5] (f [2..] [3..])
f xs ys = l
where
l = [ if s then x else y | (x, y) <- zip xs ys ]
s = g xs ys
g [] _ = True
g _ [] = False
g (x:xs) (y:ys) = g xs ys
main = print (show x)
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