[Bug modula2/119504] ICE when attempting to access an element of a constant string

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

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

--- Comment #2 from Gaius Mulley <gaius at gcc dot gnu.org> ---
Created attachment 60908
  --> https://gcc.gnu.org/bugzilla/attachment.cgi?id=60908&action=edit
Proposed fix which generates and error message and fixes HIGH of a constant
string.

$ gm2 WriteOctHex.mod 
WriteOctHex.mod:16:21: error: In procedure ‘WriteOctOrHex’: ‘OHstr’ is not an
array, but a constant string. Hint use a string constant created with an array
constructor
   16 |             str[i]:=OHstr[v MOD oh];
      |                     ^~~~~