From d6b1a57f91dfd159cd1397fb8af13b20d7abbee6 Mon Sep 17 00:00:00 2001
From: Ian Lynagh <igloo@earth.li>
Date: Tue, 19 Jul 2011 20:58:39 +0100
Subject: Add a test for #5332 (unboxed singleton tuples and TH)
---
testsuite/tests/ghc-regress/th/TH_unboxedSingleton.hs | 7 +++++++
testsuite/tests/ghc-regress/th/all.T | 2 ++
2 files changed, 9 insertions(+)
create mode 100644 testsuite/tests/ghc-regress/th/TH_unboxedSingleton.hs
(limited to 'testsuite')
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'])
+
--
cgit v1.2.1