[Bug modula2/109810] String literal exceeding array causes ICE

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

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

--- Comment #4 from Gaius Mulley <gaius at gcc dot gnu.org> ---
The patch improves the error virtual token accuracy, for example:

$ gm2 -g highice.mod 
highice.mod:6:6: error: string constant ‘12’ is too large to be assigned to the
array ‘a’
    6 |    a := '12'
      |    ~~^~~~~~~
$