[Gm2] Another "internal one"

[Dragiša Durić]

I would like to see 1.0 as everyone else, but I still have to port my
first app using gm2 :). These two (last reported one and this one) are,
hopefully, last bugs in my basic library.

% gm2 -fiso -c TermIO.mod
TermIO.mod:4:3:*** fatal error ***
../../gcc-4.1.2+gm2-20100915/gcc/gm2/gm2-compiler/SymbolTable.mod:9516:1:*** 
internal error *** not implemented yet
Internal error: Aborted
Please report this crash to the GNU Modula-2 mailing list <address@hidden>

DEFINITION MODULE Termbase;

PROCEDURE Write(ch: CHAR);

END Termbase.

DEFINITION MODULE TermIO;

IMPORT
  Termbase;

CONST
  Write = Termbase.Write;
  
END TermIO.

IMPLEMENTATION MODULE TermIO;

BEGIN
  Write(CHR(7));
END TermIO.