
New patches:

[unrevert
anonymous**20070619111521] 
<
> {
hunk ./imaginary/rfib/Main.hs 1
----------------------------------------------------------
---       WARNING: THIS PROGRAM CONTAINS A BUG!!!       --
---                                                     --
---  This program belongs to the faulty nofib library   --
---      and contains a bug to benchmark debuggers      --
---                                                     --
----------------------------------------------------------
---                                                     --
---  "The faulty nofib library" is a  collection of     --
---  Haskell programs from the 'nofib' benchmark suite  --
---                                                     --
---  Faults are always marked with a comment: "BUG"     --
---  The commented correct line appears after the       --
---  faulty line marked with "CORRECT"                  --
---                                                     --
---  We welcome any comment or improvement about        --
---  bugs. You can send them to:                        --
---        Josep Silva (jsilva@dsic.upv.es)             --
---                                                     --
----------------------------------------------------------
---                                                     --
---  There are three kinds of bugs depending on their   --
---  consequences:                                      --
---  1) Bugs that produce an incorrect result           --
---  2) Bugs that produce non-termination               --
---  3) Bugs that produce an exception (e.g. div by 0)  --
---                                                     --
---  This program contains a bug of tipe 1              --
----------------------------------------------------------
-
--- !!! the ultra-notorious "nfib 30" does w/ Floats
---
-module Main (main) where
-import System
-
-main = do
-	[arg] <- getArgs
-	print $ nfib $ read arg
-
-nfib :: Double -> Double
--- BUG: The following line contains a bug:
-nfib n = if n <= 1 then 1 else nfib (n-1) + nfib (n-2)
--- CORRECT -- nfib n = if n < 1 then 1 else nfib (n-1) + nfib (n-2)
-
+---------------------------------------------------------
+--       WARNING: THIS PROGRAM CONTAINS A BUG!!!       --
+--                                                     --
+--  This program belongs to the faulty nofib library   --
+--      and contains a bug to benchmark debuggers      --
+--                                                     --
+---------------------------------------------------------
+--                                                     --
+--  "The faulty nofib library" is a  collection of     --
+--  Haskell programs from the 'nofib' benchmark suite  --
+--                                                     --
+--  Faults are always marked with a comment: "BUG"     --
+--  The commented correct line appears after the       --
+--  faulty line marked with "CORRECT"                  --
+--                                                     --
+--  We welcome any comment or improvement about        --
+--  bugs. You can send them to:                        --
+--        Josep Silva (jsilva@dsic.upv.es)             --
+--                                                     --
+---------------------------------------------------------
+--                                                     --
+--  There are three kinds of bugs depending on their   --
+--  consequences:                                      --
+--  1) Bugs that produce an incorrect result           --
+--  2) Bugs that produce non-termination               --
+--  3) Bugs that produce an exception (e.g. div by 0)  --
+--                                                     --
+--  This program contains a bug of tipe 1              --
+---------------------------------------------------------
+
+-- !!! the ultra-notorious "nfib 30" does w/ Floats
+--
+module Main (main) where
+import System
+
+main = do
+	[arg] <- getArgs
+	print $ nfib $ read arg
+
+nfib :: Double -> Double
+-- BUG: The following line contains a bug:
+nfib n = if n < 1 then 1 else nfib (n-1) + nfib (n-2)
+-- CORRECT -- nfib n = if n <= 1 then 1 else nfib (n-1) + nfib (n-2)
+
}

Context:

[Updated Readme
josep**20070131181751] 
[Initial contribution: buggy tests
josep**20070130191656
 
 This patch also deletes unmodified, non-buggy tests
 
] 
[Tell runstdtest about binary outputs
Simon Marlow <simonmar@microsoft.com>**20070123123911] 
[Look at the stdout/stderr files appropriate for mode
Ian Lynagh <igloo@earth.li>**20061220220611] 
[Increase heap for wheel-sieve2 (was too small for mode=slow)
Ian Lynagh <igloo@earth.li>**20061212211118] 
[Make primetest main be IO () so ghci doesn't print the result
Ian Lynagh <igloo@earth.li>**20061211134513] 
[Put the bernouilli argument in PROG_ARGS rather than SRC_RUNTEST_OPTS
Ian Lynagh <igloo@earth.li>**20061211132653
 The current way didn't work when running nofib with ghci.
] 
[TAG 6.6 release
Ian Lynagh <igloo@earth.li>**20061011124740] 
[knock up a more up to date README
Simon Marlow <simonmar@microsoft.com>**20061016105641] 
[make some of these compile with GHC 6.6
Simon Marlow <simonmar@microsoft.com>**20061027080007] 
[Add some SMP and threading benchmarks I have lying around
Simon Marlow <simonmar@microsoft.com>**20060327130230] 
[Increase maximum heap size allowed for imaginary/wheel-sieve2
Ian Lynagh <igloo@earth.li>**20060905195843] 
[add stdout for x86_64
Simon Marlow <simonmar@microsoft.com>**20060329075554] 
[subvert recent optimisations in GHC
Simon Marlow <simonmar@microsoft.com>**20060207140859
 
 Some of these tests were using 'take' in their attempts to duplicate
 some work and hence run longer, but since GHC just started deforesting
 'take' this stopped working.  Now we use {-# NOILINE #-} as a
 hopefully more robust way to subvert optimisations.
] 
[TAG Initial conversion from CVS complete
John Goerzen <jgoerzen@complete.org>**20051128162047] 
Patch bundle hash:
853744550338a5c6dc6c338c50c1637d5ca87204
