From e70355cb571fce7e6e7116d73f088f114644e294 Mon Sep 17 00:00:00 2001
From: peter <peter@freepascal.org>
Date: Sun, 29 Oct 2006 23:36:02 +0000
Subject: [PATCH]   * test for copying of typenode

git-svn-id: trunk@5081 -
---
 .gitattributes         |  1 +
 tests/webtbs/tw7679.pp | 14 ++++++++++++++
 2 files changed, 15 insertions(+)
 create mode 100644 tests/webtbs/tw7679.pp

diff --git a/.gitattributes b/.gitattributes
index 4aa974e5bb..506b0cd216 100644
--- a/.gitattributes
+++ b/.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
diff --git a/tests/webtbs/tw7679.pp b/tests/webtbs/tw7679.pp
new file mode 100644
index 0000000000..afb52d9268
--- /dev/null
+++ b/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.
+