mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-04-05 08:18:12 +02:00
18 lines
267 B
ObjectPascal
18 lines
267 B
ObjectPascal
{ %cpu=x86_64,i386 }
|
|
var c: 1..3;
|
|
begin
|
|
c := 2;
|
|
asm
|
|
stc
|
|
end;
|
|
case c of
|
|
1: writeln('1');
|
|
2,3: writeln('2 or 3');
|
|
otherwise
|
|
begin
|
|
writeln ('Bug!');
|
|
halt(1);
|
|
end;
|
|
end;
|
|
end.
|