Marge Bot pushed to branch wip/marge_bot_batch_merge_job at Glasgow Haskell Compiler / GHC Commits: 724f08d0 by Simon Jakobi at 2026-03-29T23:39:33-04:00 Add regression test for #18177 Closes #18177. Assisted-by: Codex - - - - - e3b248b6 by Cheng Shao at 2026-03-29T23:39:33-04:00 testsuite: mark T17912 as fragile on Windows T17912 is still fragile on Windows, it sometimes unexpectedly pass in CI. This especially strains our already scarce Windows CI runner resources. Mark it as fragile on Windows for the time being. - - - - - 3 changed files: - libraries/base/tests/IO/all.T - + testsuite/tests/driver/T18177.hs - testsuite/tests/driver/all.T Changes: ===================================== libraries/base/tests/IO/all.T ===================================== @@ -182,7 +182,7 @@ test('T17414', compile_and_run, ['']) test('T17510', expect_broken(17510), compile_and_run, ['']) test('bytestringread001', extra_run_opts('test.data'), compile_and_run, ['']) -test('T17912', [only_ways(['threaded1']), when(opsys('mingw32'),expect_broken(17912))], compile_and_run, ['']) +test('T17912', [only_ways(['threaded1']), when(opsys('mingw32'),fragile(24739))], compile_and_run, ['']) test('T18832', only_ways(['threaded1']), compile_and_run, ['']) test('mkdirExists', [exit_code(1), when(opsys('mingw32'), ignore_stderr)], compile_and_run, ['']) ===================================== testsuite/tests/driver/T18177.hs ===================================== @@ -0,0 +1 @@ +module T18177 where ===================================== testsuite/tests/driver/all.T ===================================== @@ -314,6 +314,12 @@ test('MultiRootsErr', normal, multimod_compile_fail, ['MultiRootsErr', 'MultiRoo test('patch-level2', normal, compile, ['-Wcpp-undef']) test('T16476a', normal, makefile_test, []) test('T16476b', normal, makefile_test, []) + +# Test that GHC can handle an empty preprocessor response file. +# This used to cause GHC to hang indefinitely: #18177 +test('T18177', [pre_cmd('touch cpp-args')], compile, + ['-v0 -fforce-recomp -fhpc -optP@cpp-args -optP-DX']) + test('T20569', extra_files(["T20569/"]), makefile_test, []) test('T21866', normal, multimod_compile, ['T21866','-no-link']) test('T21349', extra_files(['T21349']), makefile_test, []) View it on GitLab: https://gitlab.haskell.org/ghc/ghc/-/compare/c09058778de695cbcd88c602d161957... -- View it on GitLab: https://gitlab.haskell.org/ghc/ghc/-/compare/c09058778de695cbcd88c602d161957... You're receiving this email because of your account on gitlab.haskell.org.