testsuite: Add test for #22282

This will complement mpickering's more general port of foundation's
numerical testsuite, providing a test for the specific case found
in #22282.

testsuite/tests/numeric/should_run/T22282.hs

+import T22282A
+
+main = print $ testF 217 161

testsuite/tests/numeric/should_run/T22282.stdout

+217
+

testsuite/tests/numeric/should_run/T22282A.hs

+{-# OPTIONS_GHC -O1 #-}
+{-# LANGUAGE MagicHash #-}
+module T22282A where
+
+import Data.Word
+import GHC.Prim
+import GHC.Word
+
+wtestF :: GHC.Prim.Word8# -> GHC.Prim.Word8# -> GHC.Prim.Word8#
+wtestF a b = case word8ToWord# b of
+  0## -> a
+  _   -> plusWord8# (timesWord8# (quotWord8# a b) b) (remWord8# a b)
+{-# NOINLINE wtestF #-}
+
+testF :: Word8 -> Word8 -> Word8
+testF (W8# a) (W8# b) = W8# (wtestF a b)
+{-# INLINE testF #-}
+

testsuite/tests/numeric/should_run/all.T

@@ -78,3 +78,4 @@ test('T19931', normal, compile_and_run, ['-O2'])
 test('IntegerToFloat', normal, compile_and_run, [''])
 
 test('T20291', normal, compile_and_run, [''])
+test('T22282', normal, compile_and_run, [''])