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=-0.3 required=5.0 tests=BAYES_00,
	REPLYTO_WITHOUT_TO_CC autolearn=no autolearn_force=no version=3.4.4
Path: 
 eternal-september.org!reader01.eternal-september.org!reader02.eternal-september.org!feeder.eternal-september.org!feeder.erje.net!2.us.feeder.erje.net!news.mb-net.net!open-news-network.org!aioe.org!.POSTED!not-for-mail
From: Pascal Obry <pascal@obry.net>
Newsgroups: comp.lang.ada
Subject: Re: Wrong GNAT warning. How to suppress it?
Date: Sat, 25 Nov 2017 19:09:01 +0100
Organization: Home - http://www.obry.net
Message-ID: <1511633341.11548.10.camel@obry.net>
References: <ovcb98$1a93$1@gioia.aioe.org>
Reply-To: pascal@obry.net
NNTP-Posting-Host: GknhcT89uftO8CT4CTSoJg.user.gioia.aioe.org
Mime-Version: 1.0
Content-Type: text/plain; charset="UTF-8"
Content-Transfer-Encoding: quoted-printable
X-Complaints-To: abuse@aioe.org
X-Mailer: Evolution 3.26.2-1 
X-Notice: Filtered by postfilter v. 0.8.2
Xref: feeder.eternal-september.org comp.lang.ada:48173
Date: 2017-11-25T19:09:01+01:00
List-Id: <comp.lang.ada>

Le samedi 25 novembre 2017 =C3=A0 20:03 +0200, Victor Porton a =C3=A9crit :
> How to eliminate the GNAT warning in the below program?
>=20
> $ gcc-7 -c main.adb
> main.adb:13:05: warning: "return" statement missing following this
> statement
> main.adb:13:05: warning: Program_Error may be raised at run time
>=20
>=20
> procedure Main is
>=20
>   procedure My_Raise is

  procedure My_Raise with No_Return is
  begin
    raise Constraint_Error;
  end;

--=20
  Pascal Obry /  Magny Les Hameaux (78)

  The best way to travel is by means of imagination

  http://www.obry.net

  gpg --keyserver keys.gnupg.net --recv-key F949BD3B