Re: ada/6727: -gnaty miscounts characters in UTF-8 source text

Re: ada/6727: -gnaty miscounts characters in UTF-8 source text

[starner]

The following reply was made to PR ada/6727; it has been noted by GNATS.

From: starner@okstate.edu
To: gcc-gnats@gcc.gnu.org
Cc:  
Subject: Re: ada/6727: -gnaty miscounts characters in UTF-8 source text
Date: Sun, 19 May 2002 17:21:28 -0500 (CDT)

 Sorry; I'll recite "don't hit the submit button again until you're sure it didn't go through" a hundred times for penance.

Re: ada/6727: -gnaty miscounts characters in UTF-8 source text

[fw]

Synopsis: -gnaty miscounts characters in UTF-8 source text

State-Changed-From-To: open->closed
State-Changed-By: fw
State-Changed-When: Mon May 20 03:08:29 2002
State-Changed-Why:
    Duplicate of ada/6726.

http://gcc.gnu.org/cgi-bin/gnatsweb.pl?cmd=view%20audit-trail&database=gcc&pr=6727

ada/6727: -gnaty miscounts characters in UTF-8 source text

[starner]

[-- Warning: decoded text below may be mangled, UTF-8 assumed --]
[-- Attachment #1: Type: text/plain, Size: 1261 bytes --]


>Number:         6727
>Category:       ada
>Synopsis:       -gnaty miscounts characters in UTF-8 source text
>Confidential:   no
>Severity:       serious
>Priority:       low
>Responsible:    unassigned
>State:          open
>Class:          rejects-legal
>Submitter-Id:   net
>Arrival-Date:   Sun May 19 15:16:01 PDT 2002
>Closed-Date:
>Last-Modified:
>Originator:     starner@okstate.edu
>Release:        gcc-3.1
>Organization:
>Environment:
Debian woody; ix86-linux
>Description:
-gnaty only permits 80 characters per line. However, if those characters are encoded in UTF-8, they are miscounted, and shorter lines are rejected. The Cherokee_String line in the attached file is 71 characters long, but 99 bytes long, and is rejected.
>How-To-Repeat:
Run gnatmake -gnaty test_strings.ads. It will return a "(style) This line is too long." error, when in fact this line is not too long.
>Fix:

>Release-Note:
>Audit-Trail:
>Unformatted:
----gnatsweb-attachment----
Content-Type: text/plain; name="test_strings.ads"
Content-Disposition: inline; filename="test_strings.ads"

package Test_Strings is

   Cherokee_String : constant Wide_String := "ᎠᏆᏖᏁᏙᎽ ᎠᎽᏍᏉᏟ ᏦᏰᎾ       ";

end Test_Strings;