* test for enums in record

git-svn-id: trunk@2405 -

.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

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.