mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-04-07 16:28:22 +02:00
7 lines
134 B
ObjectPascal
7 lines
134 B
ObjectPascal
var
|
|
v : 0..5;
|
|
sMin, sMax : 0..5; // if top of range is less than 32, get compiler Panic
|
|
begin
|
|
if v in [sMin..sMax] then ;
|
|
end.
|