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.9 required=5.0 tests=BAYES_00,FORGED_GMAIL_RCVD,
	FREEMAIL_FROM autolearn=no autolearn_force=no version=3.4.4
X-Received: by 2002:a6b:ce10:: with SMTP id
 p16-v6mr759358iob.87.1528269158002;
        Wed, 06 Jun 2018 00:12:38 -0700 (PDT)
X-Received: by 2002:aca:754b:: with SMTP id q72-v6mr57854oic.10.1528269157698;
 Wed, 06 Jun 2018 00:12:37 -0700 (PDT)
Path: 
 eternal-september.org!reader01.eternal-september.org!reader02.eternal-september.org!feeder.eternal-september.org!goblin3!goblin.stu.neva.ru!news.misty.com!border2.nntp.dca1.giganews.com!nntp.giganews.com!u74-v6no1626703itb.0!news-out.google.com!f20-v6ni1781itd.0!nntp.google.com!v8-v6no1630966itc.0!postnews.google.com!glegroupsg2000goo.googlegroups.com!not-for-mail
Newsgroups: comp.lang.ada
Date: Wed, 6 Jun 2018 00:12:37 -0700 (PDT)
In-Reply-To: <d2f04e92-b93e-4514-8fd1-a8b049727f73@googlegroups.com>
Complaints-To: groups-abuse@google.com
Injection-Info: glegroupsg2000goo.googlegroups.com;
 posting-host=87.189.195.101;
 posting-account=3zVVBwoAAAC7BSMfgNP7DSbqU9urpt40
NNTP-Posting-Host: 87.189.195.101
References: <cbf5828e-ac72-4cec-a05a-ed2b8f017dae@googlegroups.com>
 <d2f04e92-b93e-4514-8fd1-a8b049727f73@googlegroups.com>
User-Agent: G2/1.0
MIME-Version: 1.0
Message-ID: <c802c25b-473f-4a6d-a431-2f420374b8e8@googlegroups.com>
Subject: Re: how to read status of current_output
From: mario.blunk.gplus@gmail.com
Injection-Date: Wed, 06 Jun 2018 07:12:37 +0000
Content-Type: text/plain; charset="UTF-8"
Xref: reader02.eternal-september.org comp.lang.ada:52950
Date: 2018-06-06T00:12:37-07:00
List-Id: <comp.lang.ada>

On Tuesday, June 5, 2018 at 1:44:48 PM UTC+2, AdaMagica wrote:
> There is File_Access you could use.
> Or Name(Standard_Output), which is a string.

Thanks that does the job well. I wrote:
if name (current_output) = name (handle_2) then ...

Thanks !