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-Thread: 103376,9f99a33281d5072c X-Google-NewGroupId: yes X-Google-Attributes: gida07f3367d7,domainid0,public,usenet X-Google-Language: ENGLISH,ASCII Path: g2news1.google.com!news3.google.com!feeder3.cambriumusenet.nl!feed.tweaknews.nl!193.201.147.68.MISMATCH!feeder.news-service.com!de-l.enfer-du-nord.net!feeder2.enfer-du-nord.net!feeder1.enfer-du-nord.net!usenet-fr.net!proxad.net!feeder1-2.proxad.net!193.252.117.184.MISMATCH!feeder.news.orange.fr!not-for-mail Date: Wed, 30 Jun 2010 13:25:31 +0200 From: Pascal Obry Organization: Home - http://www.obry.net User-Agent: Mozilla/5.0 (Windows; U; Windows NT 6.0; fr-FR; rv:1.8.1.22) Gecko/20090605 Thunderbird/2.0.0.22 Mnenhy/0.7.5.0 MIME-Version: 1.0 Newsgroups: comp.lang.ada Subject: Re: When a conditional expression is static, where can it be used? References: <4c2b1ecb$0$7670$9b4e6d93@newsspool1.arcor-online.net> In-Reply-To: <4c2b1ecb$0$7670$9b4e6d93@newsspool1.arcor-online.net> Content-Type: text/plain; charset=ISO-8859-1 Content-Transfer-Encoding: 8bit Message-ID: <4c2b29a5$0$2957$ba4acef3@reader.news.orange.fr> NNTP-Posting-Date: 30 Jun 2010 13:25:25 CEST NNTP-Posting-Host: 90.2.58.125 X-Trace: 1277897125 reader.news.orange.fr 2957 90.2.58.125:4534 X-Complaints-To: abuse@orange.fr Xref: g2news1.google.com comp.lang.ada:12035 Date: 2010-06-30T13:25:25+02:00 List-Id: Le 30/06/2010 12:39, Georg Bauhaus a �crit : > procedure CE is > > type DOW is (Mo, Tu, We, Th, Fr, Sa, So); > > procedure P is begin null; end P; > > D: constant DOW := We; > begin > case D is > when Mo | We | Fr => P; > when (if D = We or D = Fr then So else Sa) => P; > when Tu | Th => P; > end case; > end CE; This should not compile I would say. Pascal. -- --|------------------------------------------------------ --| Pascal Obry Team-Ada Member --| 45, rue Gabriel Peri - 78114 Magny Les Hameaux FRANCE --|------------------------------------------------------ --| http://www.obry.net - http://v2p.fr.eu.org --| "The best way to travel is by means of imagination" --| --| gpg --keyserver keys.gnupg.net --recv-key F949BD3B