[Bug modula2/120731] New: Possible error in Strings.Pos causing sigsegv

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

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

            Bug ID: 120731
           Summary: Possible error in Strings.Pos causing sigsegv
           Product: gcc
           Version: 16.0
            Status: UNCONFIRMED
          Severity: normal
          Priority: P3
         Component: modula2
          Assignee: gaius at gcc dot gnu.org
          Reporter: gaius at gcc dot gnu.org
  Target Milestone: ---

Forwarded from the gm2 mailing list:

$ cat essai5.mod

MODULE essai5;

IMPORT InOut,Strings;

VAR
   ligne : ARRAY[1..256] OF CHAR;
   position : CARDINAL;

(* the ligne content is just a random line *)

BEGIN
   ligne := "erreur: In program module « essai3 »: attempting to pass
(1) parameters to procedure";
   InOut.WriteString(ligne);
   InOut.WriteLn;
   position := Strings.Pos ("IMPORT", ligne);
END essai5.

$ gm2 -o essai5 essai5.mod
$ ./essai5
erreur: In program module « essai5 »: attempting to pass (1) parameters
to procedure
Erreur de segmentation