From mboxrd@z Thu Jan  1 00:00:00 1970
X-Spam-Checker-Version: SpamAssassin 3.4.6 (2021-04-09) on
	ip-172-31-65-14.ec2.internal
X-Spam-Level: 
X-Spam-Status: No, score=-0.0 required=3.0 tests=BAYES_40,FREEMAIL_FROM,
	T_SCC_BODY_TEXT_LINE autolearn=ham autolearn_force=no version=3.4.6
X-Received: by 2002:a05:622a:587:b0:3ea:3d30:af91 with SMTP id c7-20020a05622a058700b003ea3d30af91mr304889qtb.1.1683280314354;
        Fri, 05 May 2023 02:51:54 -0700 (PDT)
X-Received: by 2002:a81:d44d:0:b0:55a:3c6c:773a with SMTP id
 g13-20020a81d44d000000b0055a3c6c773amr564820ywl.4.1683280314079; Fri, 05 May
 2023 02:51:54 -0700 (PDT)
Path: eternal-september.org!news.eternal-september.org!feeder1.feed.usenet.farm!feed.usenet.farm!peer01.ams4!peer.am4.highwinds-media.com!peer02.iad!feed-me.highwinds-media.com!news.highwinds-media.com!news-out.google.com!nntp.google.com!postnews.google.com!google-groups.googlegroups.com!not-for-mail
Newsgroups: comp.lang.ada
Date: Fri, 5 May 2023 02:51:53 -0700 (PDT)
Injection-Info: google-groups.googlegroups.com; posting-host=2001:861:3006:e580:9db1:4b31:7d62:8355;
 posting-account=I_eLtQoAAAA-qV4zTYNhsy2EmfPsGcSc
NNTP-Posting-Host: 2001:861:3006:e580:9db1:4b31:7d62:8355
User-Agent: G2/1.0
MIME-Version: 1.0
Message-ID: <2bc1705c-7802-4e89-960f-9b566d376f3cn@googlegroups.com>
Subject: problemn with string'last
From: Daniel Gaudry <gaudry.dg@gmail.com>
Injection-Date: Fri, 05 May 2023 09:51:54 +0000
Content-Type: text/plain; charset="UTF-8"
Content-Transfer-Encoding: quoted-printable
X-Received-Bytes: 1920
Xref: news.eternal-september.org comp.lang.ada:65171
List-Id: <comp.lang.ada>

hi,
here is a code that i simplified

with Ada.Text_Io;
procedure Help
   is
   Double_Quote : constant String(1 .. 1) :=3D (others =3D> '"' );
   Data         : constant String         :=3D "  PLUS_STRING    : CONSTANT=
 STRING(1..3) :=3D(1 =3D>'" & Double_Quote & "' , 2 =3D>'+' , 3 =3D>'" & Do=
uble_Quote & ");";
   begin
=20
   Ada.Text_Io.Put_Line("     05   10   15   20   25   30   35   40   45   =
50   55   65   70   75   80   85   90");
   Ada.Text_Io.Put_Line(" ....|....!....|....!....|....!....|....!....|....=
!....|....!....|....!....|....!....|....!");
   Ada.Text_Io.Put_Line("=C2=BB" & Data & "=C2=AB " & Data'Last'Img);
=20
end Help;


but the data'last seems not to match the string size

Any help is welcome
best regards