gcc/testsuite/gm2/iso/fail/badarray3.mod - gcc.git - Git at Google

 MODULE badarray3 ;

 VAR
    x: ARRAY [1..5] OF INTEGER ;
 BEGIN
    x[1] := 'c';
 END badarray3.
	MODULE badarray3 ;

	VAR
	x: ARRAY [1..5] OF INTEGER ;
	BEGIN
	x[1] := 'c';
	END badarray3.