testsuite: Mark print037 as broken when GHC is built with LLVM

As noted in #16205 this configuration reliably segfaults.

2 files changed, 13 insertions, 1 deletions

diff --git a/testsuite/driver/testlib.py b/testsuite/driver/testlib.py
index 040e674312..dd3b4262eb 100644
--- a/testsuite/driver/testlib.py
+++ b/testsuite/driver/testlib.py
@@ -468,6 +468,15 @@ def have_gdb( ):
 def have_readelf( ):
     return config.have_readelf
 
+def integer_gmp( ):
+    return have_library("integer-gmp")
+
+def integer_simple( ):
+    return have_library("integer-simple")
+
+def llvm_build ( ):
+    return config.ghc_built_by_llvm
+
 # ---
 
 def high_memory_usage(name, opts):
diff --git a/testsuite/tests/ghci.debugger/scripts/all.T b/testsuite/tests/ghci.debugger/scripts/all.T
index 4095cf2c0b..7240594823 100644
--- a/testsuite/tests/ghci.debugger/scripts/all.T
+++ b/testsuite/tests/ghci.debugger/scripts/all.T
@@ -45,7 +45,10 @@ test('print033', normal, ghci_script, ['print033.script'])
 test('print034', extra_files(['../GADT.hs', '../Test.hs']), ghci_script, ['print034.script'])
 test('print035', extra_files(['../Unboxed.hs']), ghci_script, ['print035.script'])
 test('print036', expect_broken(9046), ghci_script, ['print036.script'])
-test('print037', normal, ghci_script, ['print037.script'])
+test('print037', when(llvm_build() and integer_gmp()
+                     , expect_broken_for(16205, ['ghci-ext']))
+               , ghci_script
+               , ['print037.script'])
 
 test('break001', extra_files(['../Test2.hs']), ghci_script, ['break001.script'])
 test('break002', extra_files(['../Test2.hs']), ghci_script, ['break002.script'])