compiler bug? Call of sqr in a expression as parameter

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.

Sven＠rufus.central.de

tags

participants (1)