blob: 13fbe0f9129d8bbaab5843410cd259f2a0cdc43c (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
|
{$APPTYPE CONSOLE}
program qwordbool_test_02;
//=====================
//
// Using function which returns QWORDBOOL leads to 'Internal error 200410105' during compile in some usage patterns
//
// r19740-win32
//
//=====================
// Sample:
//
function qbool_result(something:integer):qwordbool;
begin
qbool_result:=(something<>0);
end;
var test:boolean;
begin
test:=qbool_result(123); //here(17,13) Fatal: Internal error 200410105
if not(test) then
halt(1);
writeln('ok');
end.
|
