[Gm2] Is this a bug?

[John B. Wallace, Jr.]

This code produces an unexpected result:


MODULE StrAssignTest;
 
FROM StrIO IMPORT WriteString, WriteLn;
 
TYPE
  String = ARRAY [0..255] OF CHAR;
 
VAR
  Str : String;
 
BEGIN
  Str := 'abcdefghij';
  WriteString(Str);
  WriteLn;
  Str := '1234';
  WriteString(Str);
  WriteLn
END StrAssignTest.


On my system the output is:

abcdefghij
1234efghij


John