fail -> broken

testsuite/driver/testlib.py

@@ -150,6 +150,13 @@ def _expect_fail_if_compiler_type( opts, compiler_type ):
     if config.compiler_type == compiler_type:
 	opts.expect = 'fail'
 
+def expect_broken_if_compiler_type( compiler_type ):
+   return lambda opts, b=bug, c=compiler_type: _expect_broken_if_compiler_type(opts, b, c)
+
+def _expect_broken_if_compiler_type( opts, bug, compiler_type ):
+    if config.compiler_type == compiler_type:
+	opts.expect = 'fail'
+
 # -----
 
 def set_stdin( file ):

testsuite/tests/ghc-regress/parser/should_fail/all.T

@@ -32,7 +32,7 @@ test('read025', normal, compile_fail, [''])
 test('read026', normal, compile_fail, [''])
 
 # Fails in GHC 6.2+
-test('read027', expect_fail_if_compiler_type('ghc'), compile_fail, [''])
+test('read027', expect_broken_if_compiler_type(1060, 'ghc'), compile_fail, [''])
 
 test('read028', normal, compile_fail, [''])
 test('read029', normal, compile_fail, [''])