* test for copying of typenode

git-svn-id: trunk@5081 -

.gitattributes

@@ -7570,6 +7570,7 @@ 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/tw7637.pp svneol=native#text/plain
+tests/webtbs/tw7679.pp svneol=native#text/plain
 tests/webtbs/ub1873.pp svneol=native#text/plain
 tests/webtbs/ub1883.pp svneol=native#text/plain
 tests/webtbs/uw0555.pp svneol=native#text/plain

tests/webtbs/tw7679.pp

@@ -0,0 +1,14 @@
+{$mode objfpc}
+{$h+}
+uses
+  TypInfo;
+type
+  Enum = (a, b, c);
+var
+  S : string;
+begin
+  S := 'Text';
+  S := S + 'xyz' + GetEnumName(TypeInfo(Enum), 1); // This line generate error
+  S := 'xyz' + GetEnumName(TypeInfo(Enum), 1); // This line is OK!
+end.
+