6 Sep
1997
6 Sep
'97
7:58 a.m.
Please check, if it is an error!
greetings... ___, ((__ o ,____)) V E N I
program Bug;
function ReturnNum: Real; begin ReturnNum := 0; end;
function TestNum(AnyNum: Real): Real; begin TestNum := AnyNum; end;
var Test : Real;
begin Test := sqr(ReturnNum); { no compiler error }
Test := TestNum(sin(ReturnNum)); { no compiler error }
Test := TestNum(sqr(0.1)); { no compiler error }
Test := TestNum(sqr(ReturnNum)); { the GPC compiler meant: "argument to `sqr' must be of integer, real or complex type" } end.