Commit 98807046 authored by simonmar's avatar simonmar
Browse files

[project @ 2002-09-05 10:29:20 by simonmar]

regression test for SourceForge bug #604849
parent 30b061a7
test('cg001', normal, compile, [''])
test('cg002', normal, compile, [''])
test('cg003', only_ways(['opt']), compile, ['-fvia-C'])
module Test where
-- !!! caused compiler to generate bogus HC code, fixed in
-- basicTypes/Literal.lhs rev. 1.36.
f :: Double -> Int
f x = round (x - (-5.0))
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