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,361005071ae51d99
X-Google-Attributes: gid103376,public
X-Google-ArrivalTime: 2002-03-06 00:43:22 PST
Path: 
 archiver1.google.com!news1.google.com!newsfeed.stanford.edu!logbridge.uoregon.edu!fu-berlin.de!uni-berlin.de!tar-alcarin.cbb-automation.DE!not-for-mail
From: dmitry@elros.cbb-automation.de (Dmitry A. Kazakov)
Newsgroups: comp.lang.ada
Subject: Re: Future with Ada
Date: Wed, 06 Mar 2002 08:43:18 GMT
Message-ID: <3c85d4e4.83950937@News.CIS.DFN.DE>
References: <mailman.1015398962.25667.comp.lang.ada@ada.eu.org>
NNTP-Posting-Host: tar-alcarin.cbb-automation.de (212.79.194.111)
X-Trace: fu-berlin.de 1015404199 12074742 212.79.194.111 (16 [77047])
X-Newsreader: Forte Free Agent 1.21/32.243
Xref: archiver1.google.com comp.lang.ada:20850
Date: 2002-03-06T08:43:18+00:00
List-Id: <comp.lang.ada>

On Wed, 6 Mar 2002 08:14:09 +0100 (MET), Christoph Grein
<christoph.grein@eurocopter.com> wrote:

>From: Wes Groleau <wesgroleau@despammed.com
>> One minor thing I've always thought odd about Ada is the
>> inconsistency where some ends require a name, some
>> forbid it, and some don't care.
>> 
>> Also, some demand a keyword match (end record) and some don't.
>
>      begin ... end;
>. end;
>Name: begin ... end Name;
>
>      loop ... end loop;
>Name: loop ... end loop Name;
>
>xxxx Name ... end [Name];
>where xxxx is one of {package, task, function, procedure, protected, accept}
>
>Only in the last rule the name is optional after end.
>
>The following are not named, so they have no name after end:
>
>    if ... end if;
>  case ... end case;
>select ... end select;
>record ... end record;
>
>For record, you could claim there is a name, but it's the type's name, and you 
>do not have end for type ends.

What about:

protected type Resource is
   entry Seize;
   procedure Release;
private
   Busy : Boolean := False;
end Resource;

Here you do have an end for a type declaration.

>Have I forgotten one pair?

Regards,
Dmitry Kazakov