blob: 09934796e4bc6483a3c77319f7457692a152546b (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
|
{ %fail }
{ Source provided for Free Pascal Bug Report 2719 }
{ Submitted by "Samuel L.B." on 2003-10-06 }
{ e-mail: NLBCHGPOHSXQ@spammotel.com }
program A;
const
cmConnect: Char = #1;
cmDisconnect: Char = #2;
function GetCh(Id: Byte): Char;
begin
end;
begin
case GetCh(1) of
cmConnect: ;
cmDisconnect: ;
end;
end.
|
