mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-04-09 23:28:36 +02:00
e99c4d1950
* don't run pass_1 on str or val calls in generic method/procedure definitions, resolves #18420 git-svn-id: trunk@16849 -
38 lines
444 B
ObjectPascal
38 lines
444 B
ObjectPascal
var
|
|
b : boolean;
|
|
b8 : ByteBool;
|
|
b16 : WordBool;
|
|
b32 : LongBool;
|
|
b64 : QWordBool;
|
|
s : string;
|
|
|
|
begin
|
|
b:=false;
|
|
str(b,s);
|
|
if s<>'FALSE' then
|
|
halt(1);
|
|
|
|
b8:=false;
|
|
str(b8,s);
|
|
if s<>'FALSE' then
|
|
halt(1);
|
|
|
|
b16:=false;
|
|
str(b16,s);
|
|
if s<>'FALSE' then
|
|
halt(1);
|
|
|
|
b32:=false;
|
|
str(b32,s);
|
|
if s<>'FALSE' then
|
|
halt(1);
|
|
|
|
b64:=false;
|
|
str(b64,s);
|
|
if s<>'FALSE' then
|
|
halt(1);
|
|
|
|
writeln('ok');
|
|
end.
|
|
|