[Gm2] Here I go, again... O:) TestCase18, I think.

[dragisha]

I am sorry I did not have time before 1.0 for this, but better now 
than never... There are interesting variations around this issue, ones 
I walked through/around while pruning my code to make this example as 
clear as possible... But first things first.

% cat TestCase18.mod
MODULE TestCase18;

TYPE
 Where = PROCEDURE(): BOOLEAN;

CONST
 True = TrueBolan;

PROCEDURE TrueBolan (): BOOLEAN;
 BEGIN
   RETURN TRUE;
 END TrueBolan;

PROCEDURE DoSeq(while: Where);
 BEGIN
 END DoSeq;

BEGIN
   DoSeq(True);
END TestCase18.

% gm2 -I../../gm2.lib0 -c -fiso TestCase18.mod
TestCase18.mod:20:5:*** fatal error ***
../../gcc-4.1.2+gm2-20101211/gcc/gm2/gm2-compiler/SymbolTable.mod:950:1:*** 
internal error *** symbol out of bounds
Internal error: Aborted
Please report this crash to the GNU Modula-2 mailing list 
<address@hidden>