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=unavailable autolearn_force=no version=3.4.4
Path: 
 eternal-september.org!reader01.eternal-september.org!feeder.eternal-september.org!aioe.org!.POSTED.DFxaDADwSkn+6wW9Ah21PA.user.gioia.aioe.org!not-for-mail
From: Simon Wright <simon@pushface.org>
Newsgroups: comp.lang.ada
Subject: Re: How do I resolve SPARK warning "procedure [...] has no effect for
 output procedure
Date: Thu, 26 Mar 2020 10:02:49 +0000
Organization: Aioe.org NNTP Server
Message-ID: <lyr1xfl9h2.fsf@pushface.org>
References: <aa72dccb-e291-4849-ad37-9d001fad7234@googlegroups.com>
	<2cf70068-45e1-4e39-8ff4-3348f37e63fd@googlegroups.com>
	<f9bf574c-af41-4d66-8c22-d4e83ed8ab7a@googlegroups.com>
NNTP-Posting-Host: DFxaDADwSkn+6wW9Ah21PA.user.gioia.aioe.org
Mime-Version: 1.0
Content-Type: text/plain
X-Complaints-To: abuse@aioe.org
User-Agent: Gnus/5.13 (Gnus v5.13) Emacs/26.3 (darwin)
Cancel-Lock: sha1:P0lw2LACJQjYPeKOSFZdNsEBh1A=
X-Notice: Filtered by postfilter v. 0.9.2
Xref: reader01.eternal-september.org comp.lang.ada:58249
Date: 2020-03-26T10:02:49+00:00
List-Id: <comp.lang.ada>

digitig <digitig@gmail.com> writes:

> When I run SPARK examiner (from within GPS) I Get the warning I'd like
> to clear:
>
> warning: subprogram "Error_Header" has no effect.

Try

   package Utils with Spark_Mode is
      pragma Warnings (Off, "has no effect");
      procedure Error_Header;
      pragma Warnings (On, "has no effect");
   end Utils;