[fpc-pascal]Internal Error

[Adam Naumowicz]

Hi,
Trying to use a Delphi-style initialized var with a procedural variable
I get the following error message:

Free Pascal Compiler version 1.0.6 [2002/05/23] for i386
Copyright (c) 1993-2002 by Florian Klaempfl
Target OS: Linux for i386
Compiling tester.pas
Panic : Internal compiler error (SIGSEGV), exiting.
tester.pas(9,15) Fatal: Internal error 9999

A simple test program (changing var into const works fine):
-------------------------
program tester;

procedure a;
begin
 writeln('a');
end;

type aproc=procedure;
var ap:aproc=a;
//const ap:aproc=a;

begin
 ap;
end.
--------------------------

Is this a known issue? Or maybe it has been fixed in the current branch?

Best regards,
Adam Naumowicz

======================================================================
Department of Applied Logic            fax. +48 (85) 745-7662
Institute of Computer Science          tel. +48 (85) 745-7559 (office)
University of Bialystok                e-mail: adamn at mizar.org
Sosnowa 64, 15-887 Bialystok, Poland   http://math.uwb.edu.pl/~adamn/
======================================================================