Test Trac #7943

testsuite/tests/rename/should_fail/T7943.hs

+module T7943 where
+
+data Foo = A { bar :: String }
+          | B String { bar :: String }

testsuite/tests/rename/should_fail/T7943.stderr

+
+T7943.hs:4:22: Record syntax is illegal here: {bar :: String}

testsuite/tests/rename/should_fail/all.T

@@ -109,3 +109,4 @@ test('T7338a', normal, compile_fail, [''])
 test('T7454', normal, compile, [''])
 test('T7906', normal, compile_fail, [''])
 test('T7937', normal, compile_fail, [''])
+test('T7943', normal, compile_fail, [''])