From mboxrd@z Thu Jan  1 00:00:00 1970
Return-Path: <gcc-bugzilla@gcc.gnu.org>
Received: by sourceware.org (Postfix, from userid 48)
	id 3B9C83858D28; Fri, 19 May 2023 11:01:40 +0000 (GMT)
DKIM-Filter: OpenDKIM Filter v2.11.0 sourceware.org 3B9C83858D28
DKIM-Signature: v=1; a=rsa-sha256; c=relaxed/relaxed; d=gcc.gnu.org;
	s=default; t=1684494100;
	bh=hAQl4/WkhkXZHb0MVuEgZEKAAv0+GCf/X6NXGUG1+R4=;
	h=From:To:Subject:Date:From;
	b=SIfJnug38ZLLc8Mx2g82pDRaykUPUZf9jlL2EBYWASnsUUCe+IROXGbc444+zCy8I
	 ASw07FReKRxBE8gTPHYwLWoSyRau5lBxSkW9H/PexPvwjQIF9ZyPyXNwnSw4yS3WsL
	 /irYI3nU/EzPi3N+4RA8ryC+HuLq1bXO/Exhj8I8=
From: "gaius at gcc dot gnu.org" <gcc-bugzilla@gcc.gnu.org>
To: gcc-bugs@gcc.gnu.org
Subject: [Bug modula2/109908] New: Delete from m2iso Strings is broken
Date: Fri, 19 May 2023 11:01:39 +0000
X-Bugzilla-Reason: CC
X-Bugzilla-Type: new
X-Bugzilla-Watch-Reason: None
X-Bugzilla-Product: gcc
X-Bugzilla-Component: modula2
X-Bugzilla-Version: 14.0
X-Bugzilla-Keywords: 
X-Bugzilla-Severity: normal
X-Bugzilla-Who: gaius at gcc dot gnu.org
X-Bugzilla-Status: UNCONFIRMED
X-Bugzilla-Resolution: 
X-Bugzilla-Priority: P3
X-Bugzilla-Assigned-To: gaius at gcc dot gnu.org
X-Bugzilla-Target-Milestone: ---
X-Bugzilla-Flags: 
X-Bugzilla-Changed-Fields: bug_id short_desc product version bug_status
 bug_severity priority component assigned_to reporter target_milestone
 attachments.created
Message-ID: <bug-109908-4@http.gcc.gnu.org/bugzilla/>
Content-Type: text/plain; charset="UTF-8"
Content-Transfer-Encoding: quoted-printable
X-Bugzilla-URL: http://gcc.gnu.org/bugzilla/
Auto-Submitted: auto-generated
MIME-Version: 1.0
List-Id: <gcc-bugs.sourceware.org>

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

            Bug ID: 109908
           Summary: Delete from m2iso Strings is broken
           Product: gcc
           Version: 14.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: ---

Created attachment 55117
  --> https://gcc.gnu.org/bugzilla/attachment.cgi?id=3D55117&action=3Dedit
test code for m2iso Strings.Delete

As reported on the gm2 mailing list the m2iso Strings.Delete is broken for
example the following test code fails:

$ gm2 --version
gm2 (GCC) 14.0.0 20230511 (experimental)
Copyright (C) 2023 Free Software Foundation, Inc.
This is free software; see the source for copying conditions.  There is NO
warranty; not even for MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.

$ gm2 -g -fiso testdelete.mod
$ ./a.out

after Delete string one =3D '1'
error: string one should be empty after delete
error: string one have length 0 after delete
after Delete string two =3D '221'
error: string two should be '2' after delete
error: string two have length 1 after delete
after Delete string three =3D '233221'
error: string three should be '23' after delete
error: string three should have length 2 after delete
after Delete string four =3D ''
after Delete string large =3D '01234567890123456789'
after Delete string large =3D '01234567890123456789'
after Delete string three =3D '133221'
error: string three should be '13' after delete
error: string three should have length 2 after delete
after Delete string four =3D '13'=