Mark tests as expect_broken when borken with -DDEBUG

The related bugs are #8553 and #8525.

testsuite/tests/gadt/all.T

@@ -10,7 +10,7 @@ test('gadt2', when(fast(), skip), compile_and_run, [''])
 test('gadt3', normal, compile, [''])
 test('gadt4', when(fast(), skip), compile_and_run, [''])
 test('gadt5', when(fast(), skip), compile_and_run, [''])
-test('gadt6', normal, compile, [''])
+test('gadt6', when(compiler_debugged(), expect_broken(8553)), compile, [''])
 test('gadt7', normal, compile_fail, [''])
 test('gadt8', normal, compile, [''])
 test('gadt9', normal, compile, [''])

testsuite/tests/indexed-types/should_compile/all.T

@@ -206,7 +206,7 @@ test('T7156', normal, compile, [''])
 test('T5591a', normal, compile, [''])
 test('T5591b', normal, compile, [''])
 test('T7280', normal, compile, [''])
-test('T7474', normal, compile, [''])
+test('T7474', when(compiler_debugged(), expect_broken(8553)), compile, [''])
 test('T7489', normal, compile, [''])
 test('T7585', normal, compile, [''])
 test('T7282', normal, compile, [''])
@@ -237,4 +237,4 @@ test('T8020', normal, compile, [''])
 test('ClosedFam1', extra_clean(['ClosedFam1.o-boot', 'ClosedFam1.hi-boot']),
      multimod_compile, ['ClosedFam1', '-v0'])
 test('ClosedFam2', extra_clean(['ClosedFam2.o-boot', 'ClosedFam2.hi-boot']),
-     multimod_compile, ['ClosedFam2', '-v0'])
\ No newline at end of file
+     multimod_compile, ['ClosedFam2', '-v0'])

testsuite/tests/lib/integer/all.T

@@ -3,7 +3,8 @@ test('integerConversions', normal, compile_and_run, [''])
 # skip ghci as it doesn't support unboxed tuples
 test('integerGmpInternals', [reqlib('integer-gmp'), omit_ways('ghci')], compile_and_run, [''])
 test('integerConstantFolding',
-     extra_clean(['integerConstantFolding.simpl']),
+     [ extra_clean(['integerConstantFolding.simpl'])
+     , when(compiler_debugged(), expect_broken(8525))],
      run_command,
      ['$MAKE -s --no-print-directory integerConstantFolding'])
 test('fromToInteger',

testsuite/tests/typecheck/should_fail/all.T

@@ -252,7 +252,7 @@ test('FailDueToGivenOverlapping', normal, compile_fail, [''])
 test('LongWayOverlapping', normal, compile_fail, [''])
 test('T5051', normal, compile_fail, [''])
 test('T5236',normal,compile_fail,[''])
-test('T5246',normal,compile_fail,[''])
+test('T5246',when(compiler_debugged(), expect_broken(8553)),compile_fail,[''])
 test('T5300',normal,compile_fail,[''])
 test('T5095',normal,compile_fail,[''])
 test('T1897a',normal,compile_fail,[''])