* new test

git-svn-id: trunk@4846 -

.gitattributes

@@ -7354,6 +7354,7 @@ tests/webtbs/tw7425.pp svneol=native#text/plain
 tests/webtbs/tw7440.pp svneol=native#text/plain
 tests/webtbs/tw7446.pp svneol=native#text/plain
 tests/webtbs/tw7489.pp svneol=native#text/plain
+tests/webtbs/tw7527.pp svneol=native#text/plain
 tests/webtbs/tw7567.pp svneol=native#text/plain
 tests/webtbs/tw7568.pp svneol=native#text/plain
 tests/webtbs/ub1873.pp svneol=native#text/plain

tests/webtbs/tw7527.pp

@@ -0,0 +1,22 @@
+program test_mix_string_types;
+{$define fail1}
+{$define fail2}
+
+{$ifdef fail1}
+{$H+}
+{$endif}
+
+uses sysutils
+	{$ifdef fail2}
+	,classes
+	{$endif}
+	;
+{$ifndef fail2}
+type TComponentName=string;
+{$endif}
+var
+  S1: TComponentName;
+  S2:string;
+begin
+	if AnsiUpperCase(S1+'.'+S2)='' then ;
+end.