And and update RelaxedLayout tests

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

@@ -80,6 +80,7 @@ test('read065', omit_ways(['optc', 'profc']), compile, [''])
 test('read066', normal, compile, [''])
 test('read067', normal, compile, [''])
 test('read068', normal, compile, [''])
+test('read069', normal, compile, [''])
 test('read_1821', normal, compile, [''])
 test('T3303', extra_clean(['T3303A.hi', 'T3303A.o']),
      multimod_compile, ['T3303', '-v0'])

testsuite/tests/ghc-regress/parser/should_compile/read069.hs

+{-# LANGUAGE RelaxedLayout #-}
+
+module ShouldFail where
+
+f x = case x of
+         False -> do
+    { return x; }
+

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

@@ -30,10 +30,7 @@ test('readFail023', normal, compile_fail, [''])
 test('readFail024', normal, compile_fail, [''])
 test('readFail025', normal, compile_fail, [''])
 test('readFail026', normal, compile_fail, [''])
-
-# Fails in GHC 6.2+
-test('readFail027', if_compiler_type('ghc', expect_broken(1060)), compile_fail, [''])
-
+test('readFail027', normal, compile_fail, [''])
 test('readFail028', normal, compile_fail, [''])
 test('readFail029', normal, compile_fail, [''])
 test('readFail030', normal, compile_fail, [''])

testsuite/tests/ghc-regress/parser/should_fail/readFail027.hs

+{-# LANGUAGE NoRelaxedLayout #-}
+
 module ShouldFail where
 
 -- Erroneously allowed by GHC 6.2.x

testsuite/tests/ghc-regress/parser/should_fail/readFail027.stderr

+
+readFail027.hs:8:5: Missing block