Greetings everybody,
I think that I have found a bug in gpc. The following program generates what I think is a spurious error...of course I could be mistaken.
-------------------
program testzero1(input,output); type seabird= record alive:boolean; tomin:real; end ; var tu:real; i,ndives:integer; cguille:seabird;
procedure zero(function target(x:real):real;lox,hix:real;var x:real; var found:boolean); begin end { zero };
function fed(var cbird:seabird;var tu:real):seabird; var found:boolean;
function oo1(var t:real):real; begin oo1:=0; end { oo1 }; begin with cbird do zero(oo1,0,10000,tomin,found); fed:=cbird; end ; begin cguille:=fed(cguille,tu); end . ---- The error is:
testzero1.p: In function `Fed': testzero1.p:26: type mismatch in argument 1 of `Zero'
I don't think that there is an error, especially not the one indicated, but I usually believe the compiler's parser rather than my own.
What do you think?
Thanks, in advance,
John Ollason