mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-04-16 19:19:33 +02:00
20 lines
242 B
ObjectPascal
20 lines
242 B
ObjectPascal
{ %OPT=-O2 }
|
|
Program Ts;
|
|
|
|
Procedure ShortTest;
|
|
VAR
|
|
a: byte;
|
|
b: shortint absolute a;
|
|
BEGIN
|
|
for a := 0 to 255 do
|
|
begin
|
|
writeln (a:4,b:5);
|
|
if (a>127) and (a=b) then
|
|
halt(1);
|
|
end;
|
|
END;
|
|
|
|
BEGIN
|
|
Shorttest
|
|
END.
|