diff options
| author | Matthew Pickering <matthewtpickering@gmail.com> | 2022-12-12 12:02:37 +0000 |
|---|---|---|
| committer | Marge Bot <ben+marge-bot@smart-cactus.org> | 2022-12-12 16:23:11 -0500 |
| commit | c30accc2f8a0585c76cb534beda04fba624bce1c (patch) | |
| tree | ffb5346206aac18053ffc745c534c53fa86a16f7 | |
| parent | 5d1a18812f7f91a947e5d14c0ebf1ae2a0627c55 (diff) | |
| download | haskell-c30accc2f8a0585c76cb534beda04fba624bce1c.tar.gz | |
Add test for #21476
This issues seems to have been fixed since the ticket was made, so let's
add a test and move on.
Fixes #21476
| -rw-r--r-- | testsuite/tests/simplCore/should_compile/T21476.hs | 4 | ||||
| -rw-r--r-- | testsuite/tests/simplCore/should_compile/all.T | 1 |
2 files changed, 5 insertions, 0 deletions
diff --git a/testsuite/tests/simplCore/should_compile/T21476.hs b/testsuite/tests/simplCore/should_compile/T21476.hs new file mode 100644 index 0000000000..759d085c6f --- /dev/null +++ b/testsuite/tests/simplCore/should_compile/T21476.hs @@ -0,0 +1,4 @@ +{-# LANGUAGE MagicHash #-} +module T21476 where +import GHC.Exts +f = keepAlive# diff --git a/testsuite/tests/simplCore/should_compile/all.T b/testsuite/tests/simplCore/should_compile/all.T index 08ff9329ec..46bf60e1ae 100644 --- a/testsuite/tests/simplCore/should_compile/all.T +++ b/testsuite/tests/simplCore/should_compile/all.T @@ -456,3 +456,4 @@ test('T22317', [grep_errmsg(r'ANSWER = YES') ], compile, ['-O -dinline-check m - test('T22494', [grep_errmsg(r'case') ], compile, ['-O -ddump-simpl -dsuppress-uniques']) test('T22491', normal, compile, ['-O2']) +test('T21476', normal, compile, ['']) |