diff options
| author | Simon Peyton Jones <simonpj@microsoft.com> | 2012-04-05 13:34:45 +0100 |
|---|---|---|
| committer | Simon Peyton Jones <simonpj@microsoft.com> | 2012-04-05 13:34:45 +0100 |
| commit | 3a9ba4d11415ea38c7411f47960b9a5654f3b483 (patch) | |
| tree | 54ae4ed56b43ba7e2d14932fa06910a13e8959c1 | |
| parent | 56de6d1b5d76bb0d49a38b30b5e9695394f800ce (diff) | |
| download | haskell-3a9ba4d11415ea38c7411f47960b9a5654f3b483.tar.gz | |
Add (in comments) more variants to T3064
| -rw-r--r-- | testsuite/tests/perf/compiler/T3064.hs | 20 |
1 files changed, 19 insertions, 1 deletions
diff --git a/testsuite/tests/perf/compiler/T3064.hs b/testsuite/tests/perf/compiler/T3064.hs index 328da45976..7b45883871 100644 --- a/testsuite/tests/perf/compiler/T3064.hs +++ b/testsuite/tests/perf/compiler/T3064.hs @@ -60,4 +60,22 @@ runCtxM action = runReaderT (unResourceT action) Ctx test14 :: IO () test14 = runCA(newRgn(newRgn(newRgn(newRgn(newRgn(newRgn(newRgn(newRgn( - newRgn(newRgn(newRgn(newRgn(return()))))))))))))) + newRgn(newRgn(newRgn(newRgn(return()))))))))))))) + +{- +test28 :: IO () +test28 = runCA(newRgn(newRgn(newRgn(newRgn(newRgn(newRgn(newRgn(newRgn( + newRgn(newRgn(newRgn(newRgn( + newRgn(newRgn(newRgn(newRgn(newRgn(newRgn(newRgn(newRgn( + newRgn(newRgn(newRgn(newRgn(return()))))))))))))))))))))))))) + +test56 :: IO () +test56 = runCA(newRgn(newRgn(newRgn(newRgn(newRgn(newRgn(newRgn(newRgn( + newRgn(newRgn(newRgn(newRgn( + newRgn(newRgn(newRgn(newRgn(newRgn(newRgn(newRgn(newRgn( + newRgn(newRgn(newRgn(newRgn( + newRgn(newRgn(newRgn(newRgn(newRgn(newRgn(newRgn(newRgn( + newRgn(newRgn(newRgn(newRgn( + newRgn(newRgn(newRgn(newRgn(newRgn(newRgn(newRgn(newRgn( + newRgn(newRgn(newRgn(newRgn(return()))))))))))))))))))))))))))))))))))))))))))))))))) +-} |