3 files changed, 10 insertions, 0 deletions
diff --git a/testsuite/tests/lib/base/T17472.hs b/testsuite/tests/lib/base/T17472.hs
new file mode 100644
index 0000000000..cc4e9d6f35
--- /dev/null
+++ b/testsuite/tests/lib/base/T17472.hs
@@ -0,0 +1,8 @@
+module Main where
+
+import Data.Ord
+import Data.Functor.Classes
+
+-- Should print GT
+main :: IO ()
+main = print $ compare1 (Down 1) (Down 2)
diff --git a/testsuite/tests/lib/base/T17472.stdout b/testsuite/tests/lib/base/T17472.stdout
new file mode 100644
index 0000000000..c81edbdc6a
--- /dev/null
+++ b/testsuite/tests/lib/base/T17472.stdout
@@ -0,0 +1 @@
+GT
diff --git a/testsuite/tests/lib/base/all.T b/testsuite/tests/lib/base/all.T
index e92af6d57c..3322f68a1c 100644
--- a/testsuite/tests/lib/base/all.T
+++ b/testsuite/tests/lib/base/all.T
@@ -5,3 +5,4 @@ test('T16916', when(opsys('mingw32'), skip), compile_and_run, ['-O2 -threaded -w
 test('T17310', normal, compile, [''])
 test('T19691', normal, compile, [''])
 test('executablePath', extra_run_opts(config.os), compile_and_run, [''])
+test('T17472', normal, compile_and_run, [''])