paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-06 15:47:52 +02:00
Code Issues Packages Projects Releases Wiki Activity

* enum(enum) test

Browse Source
This commit is contained in:
peter 2001-10-22 21:21:25 +00:00
parent 87f83123d3
commit 05aa164e57
1 changed files with 14 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

14
tests/tbs/tb0383.pp Normal file
View File

@ -0,0 +1,14 @@
type
enum1 = (one,two,three);
enum2 = (een,twee,drie);
procedure p1(e:enum1);
begin
end;
var
e2 : enum2;
begin
e2:=een;
p1(enum1(e2));
end.