3 files changed, 15 insertions, 0 deletions
diff --git a/testsuite/tests/lib/integer/T19345.hs b/testsuite/tests/lib/integer/T19345.hs
new file mode 100644
index 0000000000..41313a44e5
--- /dev/null
+++ b/testsuite/tests/lib/integer/T19345.hs
@@ -0,0 +1,12 @@
+{-# OPTIONS_GHC -O #-}
+module Main where
+
+import Numeric.Natural
+  ( Natural )
+
+a, q :: Natural
+a = fromIntegral ( 18446744073709551616 :: Integer )
+q = 18446744073709551616
+
+main :: IO ()
+main = print ( fromIntegral ( a `div` q ) :: Word )
diff --git a/testsuite/tests/lib/integer/T19345.stdout b/testsuite/tests/lib/integer/T19345.stdout
new file mode 100644
index 0000000000..d00491fd7e
--- /dev/null
+++ b/testsuite/tests/lib/integer/T19345.stdout
@@ -0,0 +1 @@
+1
diff --git a/testsuite/tests/lib/integer/all.T b/testsuite/tests/lib/integer/all.T
index 740fa0e606..7c9720ed1f 100644
--- a/testsuite/tests/lib/integer/all.T
+++ b/testsuite/tests/lib/integer/all.T
@@ -23,3 +23,5 @@ test('integerImportExport', [omit_ways(['ghci'])], compile_and_run, [''])
 
 # Disable GMP only tests
 #test('integerGmpInternals', [], compile_and_run, [''])
+
+test('T19345', [], compile_and_run, [''])