m2c segfaults on compiling

[turin]

Binary package hint: m2c

turin@gurthang:~/modula-2$ make
m2c -all -lm myfirst.mod -o myfirst
"myfirst.mod": 25: invalid statement
"myfirst.mod": 20: identifier write is not declared
"myfirst.mod": 22: identifier write is not declared
"myfirst.mod": 23: identifier write is not declared
"myfirst.mod": 25: identifier writeln is not declared
"myfirst.mod": 25: invalid statement
"myfirst.mod": 20: identifier write is not declared
"myfirst.mod": 22: identifier write is not declared
"myfirst.mod": 23: identifier write is not declared
"myfirst.mod": 25: identifier writeln is not declared
myfirst.mod - 159 lines, 9912 bytes
make: *** [ALL] Fallo de segmentación (core dumped) [Núcleo vaciado a un archivo]

The Makefile has:
ALL:
        m2c -all -lm myfirst.mod -o myfirst

And the program i was compiling (is a practice in modula-2, my fisrt buggy program in that languaje :P ):
MODULE myfirst;

 FROM InOut IMPORT Write,WriteLn,WriteString;

 CONST n=50;
 TYPE matriz = ARRAY[1..n] OF INTEGER;

 PROCEDURE insercion_directa(VAR a: matriz);
 BEGIN
 END insercion_directa;

 PROCEDURE iniciar_array(VAR a: matriz);
 BEGIN
 END iniciar_array;

 PROCEDURE imprimir_array(VAR a:matriz);
 VAR
        i: INTEGER;
 BEGIN
        write("|");
        FOR i:=1 TO n DO
                write(a[i]);
                write("|");
        END
        writeln
 END imprimir_array;

 VAR
        arreglo: matriz;
 BEGIN
        iniciar_array(arreglo);
        imprimir_array(arreglo);
END myfirst.

[Ralph Janke (txwikinger)]

I can confirm this problem on hardy BETA