Another test for Trac #7338, duplicate type sigs

testsuite/tests/rename/should_fail/T7338a.hs

+module T7338a where
+
+a, b :: Int
+a = undefined
+b = undefined
+
+c, a :: Int
+c = undefined
+
+c, d :: Int
+d = undefined
\ No newline at end of file

testsuite/tests/rename/should_fail/T7338a.stderr

+
+T7338a.hs:7:4:
+    Duplicate type signatures for `a'
+    at T7338a.hs:3:1
+       T7338a.hs:7:4
+
+T7338a.hs:10:1:
+    Duplicate type signatures for `c'
+    at T7338a.hs:7:1
+       T7338a.hs:10:1

testsuite/tests/rename/should_fail/all.T

@@ -105,3 +105,4 @@ test('T6060', normal, compile_fail, [''])
 test('T6148', normal, compile_fail, [''])
 test('T7164', normal, compile_fail, [''])
 test('T7338', normal, compile_fail, [''])
+test('T7338a', normal, compile_fail, [''])