diff options
| -rw-r--r-- | testsuite/tests/quotes/T16384.hs | 9 | ||||
| -rw-r--r-- | testsuite/tests/quotes/all.T | 1 |
2 files changed, 10 insertions, 0 deletions
diff --git a/testsuite/tests/quotes/T16384.hs b/testsuite/tests/quotes/T16384.hs new file mode 100644 index 0000000000..25d05d4d38 --- /dev/null +++ b/testsuite/tests/quotes/T16384.hs @@ -0,0 +1,9 @@ +{-# LANGUAGE MagicHash #-} +{-# LANGUAGE TemplateHaskell #-} +module T16384 where + +import GHC.Exts + +wat :: () -> Int# +wat _ = $$([|| 1# ||]) + diff --git a/testsuite/tests/quotes/all.T b/testsuite/tests/quotes/all.T index fa8bd4b634..d5bdda0124 100644 --- a/testsuite/tests/quotes/all.T +++ b/testsuite/tests/quotes/all.T @@ -15,6 +15,7 @@ test('T8633', normal, compile_and_run, ['']) test('T8759a', normal, compile, ['-v0']) test('T9824', normal, compile, ['-v0']) test('T10384', normal, compile_fail, ['']) +test('T16384', normal, compile, ['']) test('TH_tf2', normal, compile, ['-v0']) test('TH_ppr1', normal, compile_and_run, ['']) |