From mboxrd@z Thu Jan  1 00:00:00 1970
X-Spam-Checker-Version: SpamAssassin 3.4.6 (2021-04-09) on
	ip-172-31-74-118.ec2.internal
X-Spam-Level: 
X-Spam-Status: No, score=-2.9 required=3.0 tests=BAYES_00,NICE_REPLY_A
	autolearn=ham autolearn_force=no version=3.4.6
Path: eternal-september.org!reader02.eternal-september.org!.POSTED!not-for-mail
From: "Jeffrey R.Carter" <spam.jrcarter.not@spam.acm.org.not>
Newsgroups: comp.lang.ada
Subject: Re: How to test if file = Ada.Text_IO.Standard_Input ?
Date: Sat, 23 Oct 2021 12:22:36 +0200
Organization: A noiseless patient Spider
Message-ID: <sl0npe$c7c$1@dont-email.me>
References: <93df825f-5c18-4a02-a399-74c7ee7cf784n@googlegroups.com>
Mime-Version: 1.0
Content-Type: text/plain; charset=UTF-8; format=flowed
Content-Transfer-Encoding: 7bit
Injection-Date: Sat, 23 Oct 2021 10:22:38 -0000 (UTC)
Injection-Info: reader02.eternal-september.org; posting-host="5ce466cf1605c3c96ed07404ad7a1101";
	logging-data="12524"; mail-complaints-to="abuse@eternal-september.org";	posting-account="U2FsdGVkX1+ccXXOqzHfKznsQTsDjbTjUTXBGBWxSPo="
User-Agent: Mozilla/5.0 (X11; Linux x86_64; rv:91.0) Gecko/20100101
 Thunderbird/91.1.2
Cancel-Lock: sha1:GxSOnW+Y3heHiuLOrjFcSUDrEtk=
In-Reply-To: <93df825f-5c18-4a02-a399-74c7ee7cf784n@googlegroups.com>
Content-Language: en-US
Xref: reader02.eternal-september.org comp.lang.ada:63062
List-Id: <comp.lang.ada>

On 10/23/21 10:06, reinert wrote:
> 
> So how can I test if "file1" referes to the terminal using the lastest GNAT Community Edition?

Have you tried

Ada.Text_IO.Name (File1) = Ada.Text_IO.Name (Ada.Text_IO.Standard_Input)

? (I haven't.)

-- 
Jeff Carter
"C++: The power, elegance and simplicity of a hand grenade."
Ole-Hjalmar Kristensen
90