diff options
Diffstat (limited to 'testsuite/tests/ghc-regress/codeGen/should_run/3561.hs')
| -rw-r--r-- | testsuite/tests/ghc-regress/codeGen/should_run/3561.hs | 10 |
1 files changed, 0 insertions, 10 deletions
diff --git a/testsuite/tests/ghc-regress/codeGen/should_run/3561.hs b/testsuite/tests/ghc-regress/codeGen/should_run/3561.hs deleted file mode 100644 index 44258a839c..0000000000 --- a/testsuite/tests/ghc-regress/codeGen/should_run/3561.hs +++ /dev/null @@ -1,10 +0,0 @@ -main = print $ pqr' 0 1 - -pqr' :: Int -> Int -> Integer -pqr' a b | a == b - 1 = rab - | otherwise = ram * rmb - where m = (a + b) `div` 2 - ram = pqr' a m - rmb = pqr' m b - rab = toInteger (6 * b - 5) * toInteger (2 * b - 1) * - toInteger (6 * b - 1) |