mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-04-11 20:51:17 +02:00
20 lines
396 B
ObjectPascal
20 lines
396 B
ObjectPascal
{ Source provided for Free Pascal Bug Report 2767 }
|
|
{ Submitted by "Jakub Cernohorsky" on 2003-11-06 }
|
|
{ e-mail: cernoj@fit.vutbr.cz }
|
|
var a:integer;
|
|
err:boolean;
|
|
begin
|
|
a:=25;
|
|
case a of
|
|
-10..0:writeln('-10..0');
|
|
31:writeln('31');
|
|
32..38:begin
|
|
writeln('32-38');
|
|
err:=true;
|
|
end;
|
|
66:writeln('66');
|
|
end;
|
|
if err then
|
|
halt(1);
|
|
end.
|