blob: 34087bc87065e5fc211bc0ba33db2d0bc3cde606 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
|
{ Source provided for Free Pascal Bug Report 1430 }
{ Submitted by "Keith R. Bolson" on 2001-03-07 }
{ e-mail: krbolson@visi.com }
PROGRAM fpc1;
PROCEDURE DoType( b :BOOLEAN; t,f: STRING);
BEGIN
IF b THEN writeln(t) ELSE writeln(f);
if b then
halt(1);
END;
VAR
ax, ay: Char;
BEGIN
ax := 'X'; ay := 'Y';
DoType( ( ([ax, ay] * ['A','C','D']) <> []), 'yes', 'no');
END.
|
