casecrash: language lawyers: C'mon!

[Peter Hermann <ica2ph@iris16.csv.ica.uni-stuttgart.de>]

                      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)