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. _______________________________________________ fpc-devel maillist - [EMAIL PROTECTED] http://lists.freepascal.org/mailman/listinfo/fpc-devel