testsuite: Add test for #17414

libraries/base/tests/IO/T17414.hs

+{-# LANGUAGE ScopedTypeVariables #-}
+import Foreign.Ptr (Ptr)
+import Foreign.Marshal.Alloc (mallocBytes, free)
+import System.IO (hPutBuf, withBinaryFile, IOMode (WriteMode))
+
+-- more than 2GiB
+numBytes :: Int
+numBytes = 2264375889
+
+main :: IO ()
+main = do
+  (ptr :: Ptr ()) <- mallocBytes numBytes
+  -- the next line produces the exception on macOS
+  withBinaryFile "test.out" WriteMode (\h -> hPutBuf h ptr numBytes)
+  free ptr
+
+  -- Truncate file in case it doesn't get deleted
+  writeFile "test.out" ""

libraries/base/tests/IO/all.T

@@ -132,3 +132,5 @@ test('encodingerror001', normal, compile_and_run, [''])
 test('T4808', [fragile_for(16909, ['threaded2']), exit_code(1)], compile_and_run, [''])
 test('T4895', normal, compile_and_run, [''])
 test('T7853', normal, compile_and_run, [''])
+# Tests ability to perform >32-bit IO operations
+test('T17414', [when(wordsize(32), skip), high_memory_usage], compile_and_run, [''])