mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-04-05 08:18:12 +02:00
a2217cedd5
ISO-defined range type, instead of using the type of the iteration
variable (mantis #24318)
git-svn-id: trunk@37934 -
25 lines
301 B
ObjectPascal
25 lines
301 B
ObjectPascal
{$MODE ISO}
|
|
|
|
{$r+}
|
|
|
|
program range ( output );
|
|
|
|
const ttlow = 0; tthigh = 800;
|
|
|
|
type ttx = ttlow .. tthigh;
|
|
|
|
var ttop : ttx;
|
|
|
|
procedure p ( low : ttx );
|
|
var high : ttx;
|
|
begin
|
|
for high := low to ttop - 1 do
|
|
halt(1);
|
|
end;
|
|
|
|
begin
|
|
writeln(sizeof(ttop));
|
|
ttop := 0;
|
|
p( 1 );
|
|
end.
|