From 62d885369d00eb63d5b18dd7e9af0b974707c754 Mon Sep 17 00:00:00 2001
From: peter <peter@freepascal.org>
Date: Thu, 2 Feb 2006 13:17:05 +0000
Subject: [PATCH]   * test for enums in record

git-svn-id: trunk@2405 -
---
 .gitattributes      |  1 +
 tests/tbs/tb0498.pp | 15 +++++++++++++++
 2 files changed, 16 insertions(+)
 create mode 100644 tests/tbs/tb0498.pp

diff --git a/.gitattributes b/.gitattributes
index ffe904a542..7f14336428 100644
--- a/.gitattributes
+++ b/.gitattributes
@@ -5338,6 +5338,7 @@ tests/tbs/tb0496.pp svneol=native#text/plain
 tests/tbs/tb0497a.pp -text
 tests/tbs/tb0497b.pp -text
 tests/tbs/tb0497c.pp -text
+tests/tbs/tb0498.pp svneol=native#text/plain
 tests/tbs/ub0060.pp svneol=native#text/plain
 tests/tbs/ub0069.pp svneol=native#text/plain
 tests/tbs/ub0119.pp svneol=native#text/plain
diff --git a/tests/tbs/tb0498.pp b/tests/tbs/tb0498.pp
new file mode 100644
index 0000000000..c536c2dad1
--- /dev/null
+++ b/tests/tbs/tb0498.pp
@@ -0,0 +1,15 @@
+type
+  t1 = longint;
+
+procedure p(t3:word);
+var
+  t2 : record
+    t1 : t1;
+end;
+begin
+  writeln(t3);
+end;
+
+begin
+  p(10);
+end.