[fpc-devel]Bug report

[Tom Verhoeff]

When preparing an assignment for our Programming Education and
Contest Hosting system (PEACH), I encountered a compiler bug.

The program below `panics' the compiler (internal compiler error).
Configuration:
  Version: 1.0.4
  Date: 2000/12/18
  OS: Linux
  Platform: i386

Best regards,

	Tom Verhoeff
--
program Panic1;
  { T.Verhoeff at TUE.NL (Eindhoven University of Technology)
    panic1.p(18,18) Error: Operator is not overloaded
    Panic : Internal compiler error, exiting.
    panic1.p(19,3) Fatal: Internal error 9999 }

const
  M = 21;
  N = 19;

type
  Row = 0 .. M-1;
  Col = 0 .. N-1;
  Matrix = array [ Row, Col ] of Char;

procedure DoMatrix ( const m: Matrix ); { paramname clashes with global const }
  begin
    write ( m [ M-1, N-1 ] )   { this is line 18 }
  end; { DoMatrix }

var
  theMatrix: Matrix;

begin
  DoMatrix ( theMatrix )
end.