diff options
Diffstat (limited to 'testsuite')
| -rw-r--r-- | testsuite/tests/ghc-regress/th/TH_unboxedSingleton.hs | 7 | ||||
| -rw-r--r-- | testsuite/tests/ghc-regress/th/all.T | 2 |
2 files changed, 9 insertions, 0 deletions
diff --git a/testsuite/tests/ghc-regress/th/TH_unboxedSingleton.hs b/testsuite/tests/ghc-regress/th/TH_unboxedSingleton.hs new file mode 100644 index 0000000000..d932285870 --- /dev/null +++ b/testsuite/tests/ghc-regress/th/TH_unboxedSingleton.hs @@ -0,0 +1,7 @@ +{-# LANGUAGE TemplateHaskell, UnboxedTuples #-} + +module TH_unboxedSingleton where + +f :: () -> (# Int #) +f () = $( [| (# 3 #) |] ) + diff --git a/testsuite/tests/ghc-regress/th/all.T b/testsuite/tests/ghc-regress/th/all.T index 47ac833374..7ca7f09223 100644 --- a/testsuite/tests/ghc-regress/th/all.T +++ b/testsuite/tests/ghc-regress/th/all.T @@ -181,3 +181,5 @@ test('T4949', normal, compile, ['-v0']) test('T5126', normal, compile, ['-v0']) test('T5217', normal, compile, ['-v0 -dsuppress-uniques -ddump-splices']) test('T5037', normal, compile, ['-v0']) +test('TH_unboxedSingleton', normal, compile, ['-v0']) + |