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 autolearn=ham
	autolearn_force=no version=3.4.4
X-Google-Language: ENGLISH,ASCII-7-bit
X-Google-Thread: 103376,5f3fcf3eb242e4c1,start
X-Google-Attributes: gid103376,public
X-Google-ArrivalTime: 2001-07-17 05:58:30 PST
Path: 
 archiver1.google.com!newsfeed.google.com!newsfeed.stanford.edu!news.tele.dk!130.133.1.3!fu-berlin.de!news.uni-stuttgart.de!not-for-mail
From: Peter Hermann <ica2ph@iris16.csv.ica.uni-stuttgart.de>
Newsgroups: comp.lang.ada
Subject: casecrash: language lawyers: C'mon!
Date: 17 Jul 2001 12:58:31 GMT
Organization: Comp.Center (RUS), U of Stuttgart, FRG
Message-ID: <9j1cpn$bis$1@infosun2.rus.uni-stuttgart.de>
NNTP-Posting-Host: iris16.csv.ica.uni-stuttgart.de
User-Agent: tin/pre-1.4-980117 (UNIX) (IRIX/6.5 (IP22))
Xref: archiver1.google.com comp.lang.ada:10056
Date: 2001-07-17T12:58:31+00:00
List-Id: <comp.lang.ada>

                      with ada.text_io;use ada.text_io;
procedure casecrash is
 type record_type is (A,B,C,D,E,F,G,H,I,J,K,L,unknown);
 type header is record
    id_letter : record_type := unknown;
 end record; 
 H : Header; 
begin
 case h.id_letter is
  when A => put("a");
  when H => put("h"); -- H conflict, name clash?
                      -- no context resolution?
  when others => put("*");
 end case; 
end casecrash;--20010717ph+frehrmann

LRM:8.3(26), illegal homograph of H
LRM:8.6(28)

Why on earth should I accept this rule in this case?
Topic for Ada2005?


-- 
Peter Hermann Tel+49-711-685-3611 Fax3758 ica2ph@csv.ica.uni-stuttgart.de
Pfaffenwaldring 27 Raum 114, D-70569 Stuttgart Uni Computeranwendungen
http://www.csv.ica.uni-stuttgart.de/homes/ph/
Team Ada: "C'mon people let the world begin" (Paul McCartney)