compiler bug? Call of sqr in a expression as parameter - Gpc

6 Sep 1997


      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.