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
X-Google-Attributes: gid103376,public
X-Google-ArrivalTime: 2001-07-17 20:53:03 PST
Path: 
 archiver1.google.com!newsfeed.google.com!newsfeed.stanford.edu!news-spur1.maxwell.syr.edu!news.maxwell.syr.edu!feed2.news.rcn.net!rcn!howland.erols.net!news-out.nntp.airnews.net.MISMATCH!cabal10.airnews.net!news.airnews.net!cabal2.airnews.net!news-f.iadfw.net!usenet
From: "John R. Strohm" <strohm@airmail.net>
Newsgroups: comp.lang.ada
Subject: Re: casecrash: language lawyers: C'mon!
Date: Tue, 17 Jul 2001 22:43:51 -0500
Organization: Airnews.net! at Internet America
Message-ID: 
 <AF90BB90E03E608D.447DE4CBCE9D9148.37FD9A43DA8A1090@lp.airnews.net>
X-Orig-Message-ID: <9j310t$j93@library2.airnews.net>
References: <9j1cpn$bis$1@infosun2.rus.uni-stuttgart.de>
Abuse-Reports-To: abuse at airmail.net to report improper postings
NNTP-Proxy-Relay: library2.airnews.net
NNTP-Posting-Time: Tue Jul 17 22:49:49 2001
NNTP-Posting-Host: !_jmb1k-XONE(%: (Encoded at Airnews!)
X-Priority: 3
X-MSMail-Priority: Normal
X-Newsreader: Microsoft Outlook Express 5.00.2615.200
X-Mimeole: Produced By Microsoft MimeOLE V5.00.2615.200
Xref: archiver1.google.com comp.lang.ada:10119
Date: 2001-07-17T22:43:51-05:00
List-Id: <comp.lang.ada>

Without digging out my long-buried LRM, I seem to recall that Ada is NOT, I
say again NOT, case-sensitive.

That being the case,

    H : Header;

hides the enumeration literal H where you defined record_type, and your
"when H =>" clause tried to resolve against the instance of Header, which is
obviously bogus.

You MIGHT try changing that to

    when record_type'(H) =>

and see what happens.  I would not bet on it working.

Peter Hermann <ica2ph@iris16.csv.ica.uni-stuttgart.de> wrote in message
news:9j1cpn$bis$1@infosun2.rus.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)