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.

litwr wrote

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

Compile your program in TP mode (add {$mode tp} at the top of the source, or use the -So command line option).

Jonas