* new bug

git-svn-id: trunk@544 -

.gitattributes

@@ -6091,6 +6091,7 @@ tests/webtbs/tw3939.pp svneol=native#text/plain
 tests/webtbs/tw3953a.pp svneol=native#text/plain
 tests/webtbs/tw3953b.pp svneol=native#text/plain
 tests/webtbs/tw3967.pp svneol=native#text/plain
+tests/webtbs/tw3968.pp svneol=native#text/plain
 tests/webtbs/tw3970.pp svneol=native#text/plain
 tests/webtbs/tw3971.pp svneol=native#text/plain
 tests/webtbs/tw3973.pp svneol=native#text/plain
@@ -6143,6 +6144,7 @@ tests/webtbs/uw3356.pp svneol=native#text/plain
 tests/webtbs/uw3429.pp svneol=native#text/plain
 tests/webtbs/uw3474a.pp svneol=native#text/plain
 tests/webtbs/uw3474b.pp svneol=native#text/plain
+tests/webtbs/uw3968.pp svneol=native#text/plain
 tests/webtbs/uw4140.pp svneol=native#text/plain
 utils/Makefile svneol=native#text/plain
 utils/Makefile.fpc svneol=native#text/plain

tests/webtbs/tw3968.pp

@@ -0,0 +1,6 @@
+{ %recompile }
+
+uses uw3968;
+begin
+  WriteLn(Ord(High(Tabc)));
+end.

tests/webtbs/uw3968.pp

@@ -0,0 +1,10 @@
+{ Source provided for Free Pascal Bug Report 3968 }
+{ Submitted by "C Western" on  2005-05-14 }
+{ e-mail: [email protected] }
+unit uw3968;
+interface
+type
+ Tabcde = (a=0,b,c,d,e);
+ Tabc = a..c;
+implementation
+end.