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

* constant ordinal type

Browse Source
This commit is contained in:
peter 2004-03-23 16:51:35 +00:00
parent 7367801810
commit 8004c68a42
1 changed files with 11 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
tests/tbs/tb0473.pp Normal file
View File

@ -0,0 +1,11 @@
const
w = $5000;
begin
writeln(hi(w));
if hi(w)<>$50 then
begin
writeln('Error!');
halt(1);
end;
end.