mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-12-05 12:47:27 +01:00
8 lines
135 B
ObjectPascal
8 lines
135 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.
|
|
|