diff options
| -rw-r--r-- | testsuite/tests/ghc-regress/rts/2783.hs | 1 | ||||
| -rw-r--r-- | testsuite/tests/ghc-regress/rts/2783.stderr | 1 | ||||
| -rw-r--r-- | testsuite/tests/ghc-regress/rts/all.T | 4 |
3 files changed, 6 insertions, 0 deletions
diff --git a/testsuite/tests/ghc-regress/rts/2783.hs b/testsuite/tests/ghc-regress/rts/2783.hs new file mode 100644 index 0000000000..5edca4e7cd --- /dev/null +++ b/testsuite/tests/ghc-regress/rts/2783.hs @@ -0,0 +1 @@ +main = print $ do x <- [ 0 .. 5 ] ; let { y = 5 - y } ; return y diff --git a/testsuite/tests/ghc-regress/rts/2783.stderr b/testsuite/tests/ghc-regress/rts/2783.stderr new file mode 100644 index 0000000000..86d45f2a1a --- /dev/null +++ b/testsuite/tests/ghc-regress/rts/2783.stderr @@ -0,0 +1 @@ +2783: <<loop>> diff --git a/testsuite/tests/ghc-regress/rts/all.T b/testsuite/tests/ghc-regress/rts/all.T index 95a56d350b..4d265db0ba 100644 --- a/testsuite/tests/ghc-regress/rts/all.T +++ b/testsuite/tests/ghc-regress/rts/all.T @@ -36,3 +36,7 @@ test('outofmem2', extra_run_opts('+RTS -M5m -RTS'), test('2047', compose(ignore_output, extra_run_opts('+RTS -c -RTS')), compile_and_run, ['-package containers']) + +# Blackhole-detection test. +# Skip GHCi due to #2786 +test('2783', [ omit_ways(['ghci']), exit_code(1) ], compile_and_run, ['']) |