From mboxrd@z Thu Jan  1 00:00:00 1970
X-Spam-Checker-Version: SpamAssassin 3.4.4 (2020-01-24) on polar.synack.me
X-Spam-Level: 
X-Spam-Status: No, score=-1.9 required=5.0 tests=BAYES_00,FREEMAIL_FROM
	autolearn=ham autolearn_force=no version=3.4.4
X-Google-Language: ENGLISH,ASCII-7-bit
X-Google-Thread: 103376,3dfe18b59c34a51c,start
X-Google-Attributes: gid103376,public
X-Google-ArrivalTime: 2001-10-26 05:45:21 PST
Path: 
 archiver1.google.com!news1.google.com!newsfeed.stanford.edu!news-spur1.maxwell.syr.edu!news.maxwell.syr.edu!dispose.news.demon.net!demon!xara.net!gxn.net!server6.netnews.ja.net!news.gla.ac.uk!not-for-mail
From: Gordon Cooke <gordon_cooke@hotmail.com>
Newsgroups: comp.lang.ada
Subject: Relational Operators
Date: Fri, 26 Oct 2001 13:41:05 +0100
Organization: Computing Science, University of Glasgow
Message-ID: <3BD959E1.6C0AD647@hotmail.com>
NNTP-Posting-Host: mercury.dcs.gla.ac.uk
Mime-Version: 1.0
Content-Type: text/plain; charset=us-ascii
Content-Transfer-Encoding: 7bit
X-Trace: singer.cent.gla.ac.uk 1004100066 10166 130.209.242.103 (26 Oct 2001
 12:41:06 GMT)
X-Complaints-To: newsmaster@gla.ac.uk
NNTP-Posting-Date: 26 Oct 2001 12:41:06 GMT
X-Mailer: Mozilla 4.78 [en] (X11; U; SunOS 5.7 sun4u)
X-Accept-Language: en
Xref: archiver1.google.com comp.lang.ada:15230
Date: 2001-10-26T12:41:06+00:00
List-Id: <comp.lang.ada>

Is this code legal?

procedure Test is
   B : Boolean;
begin
   B := True = True = True;
end Test;


I thought this would be parsed as:

procedure Test is
   B : Boolean;
begin
   B := (True = True) = True;
end Test;


but GNAT 3.13p states:

     4.    B := True = True = True;
                            |
        >>> unexpected relational operator

 5 lines: 1 error


Gordon