[fpc-devel](no subject)

[litwr]

Hi!

I've found a bug during compiling of the followed program. Borland Pascal 7 had complied it without problems.

Regards.
Vladimir Lidovski.


type
  linear = array[1..10000]of real;
  ftype = function(var a; qrf, qcf: integer): real;

function maxa(var a; qr, qc:integer): real;
  begin
    maxa := 1
  end;

function mina(var a; qr, qc:integer): real;
  begin
    mina := 0
  end;

procedure transform (var a; qr, qc: integer; f:ftype);
begin
end;

const
  a:array[1..5, 1..4] of real = (
  (1.,2.,3.,5. ),
  (2.,4.,5.,7. ),
  (11.,10.,19.,51. ),
  (1.,0.1,9.,5. ),
  (4.,6.,7.,11. ));

var
  f: ftype;

begin
  transform(a, 5, 4, maxa);
end.