paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-26 22:50:59 +02:00
Code Issues Packages Projects Releases Wiki Activity

* change to avoid range check error

Browse Source
This commit is contained in:
pierre 2000-03-28 15:25:27 +00:00
parent 1e8a7f6853
commit bc1d0c90f8
1 changed files with 7 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
tests/tbs/tbs0120.pp
View File

@ -1,9 +1,14 @@
type
te = (enum);
te = (enum1,enum2,enum3);
var
e : te;
e,f : te;
begin
e:=enum1;
inc(e);
f:=enum3;
dec(f);
if e<>f then
halt(1);
end.