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,43b885d6e21060c4,start
X-Google-Attributes: gid103376,public
X-Google-ArrivalTime: 2003-01-26 16:39:04 PST
Path: 
 archiver1.google.com!news1.google.com!newsfeed.stanford.edu!news-spur1.maxwell.syr.edu!news.maxwell.syr.edu!newsfeed.icl.net!newsfeed.fjserv.net!oleane.net!oleane!teaser.fr!newsfeed.stueberl.de!newsfeed.vmunix.org!news-peer.gradwell.net!not-for-mail
Newsgroups: comp.lang.ada
From: porton@ex-code.com (Victor Porton)
Date: Mon, 27 Jan 2003 05:32:26 +0500
Organization: Extreme Code Software (http://ex-code.com)
Subject: Gnat: silly warning - how to eliminate?
Mime-Version: 1.0
X-Newsreader: knews 1.0b.1
Content-Type: text/plain; charset=us-ascii
X-URL: http://www.ex-code.com/
Message-ID: <3e347fa7$0$33928$bed64819@news.gradwell.net>
NNTP-Posting-Date: 27 Jan 2003 00:39:03 GMT
NNTP-Posting-Host: 195.149.39.13
X-Trace: 1043627943 news.gradwell.net 33928 mail2news/195.149.39.13
X-Complaints-To: news-abuse@gradwell.net
Xref: archiver1.google.com comp.lang.ada:33440
Date: 2003-01-27T00:39:03+00:00
List-Id: <comp.lang.ada>

I declare a procedure in a _package body_ only for internal use:

procedure Get_Element renames Element;
-- to eliminate glitch with formal parameter names

Gnat 3.14p gives warning:
warning: not dispatching (must be defined in a package spec)

How to eliminate this silly warning (to not pollute the compiler 
output) without turning off all warnings? (Yes, I readied RTFM.)

Maybe to chnge the source? How?