[Bug modula2/120606] FOR loop ICE if the last expression uses an array

[gaius at gcc dot gnu.org via Gcc-bugs]

https://gcc.gnu.org/bugzilla/show_bug.cgi?id=120606

--- Comment #1 from Gaius Mulley <gaius at gcc dot gnu.org> ---
The same example code, with the correct cased keywords:

MODULE forarray ;

VAR
   array: ARRAY [0..10] OF INTEGER ;

PROCEDURE Init ;
VAR
   i, n: CARDINAL ;
BEGIN
   array[0] := 10 ;
   n := 0 ;
   FOR i := 1 TO array[n] DO
   END
END Init ;

BEGIN
   Init
END forarray.