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=-1.9 required=3.0 tests=BAYES_00,FREEMAIL_FROM
	autolearn=ham autolearn_force=no version=3.4.6
X-Received: by 2002:a37:b5c4:: with SMTP id e187mr3758091qkf.27.1634976399191;
        Sat, 23 Oct 2021 01:06:39 -0700 (PDT)
X-Received: by 2002:a05:6902:1104:: with SMTP id o4mr4557302ybu.143.1634976399047;
 Sat, 23 Oct 2021 01:06:39 -0700 (PDT)
Path: eternal-september.org!reader02.eternal-september.org!news.misty.com!border2.nntp.dca1.giganews.com!nntp.giganews.com!news-out.google.com!nntp.google.com!postnews.google.com!google-groups.googlegroups.com!not-for-mail
Newsgroups: comp.lang.ada
Date: Sat, 23 Oct 2021 01:06:38 -0700 (PDT)
Injection-Info: google-groups.googlegroups.com; posting-host=84.209.88.37; posting-account=bPTmZAoAAAC_6HP9XLKB9aAAxBa6BuOR
NNTP-Posting-Host: 84.209.88.37
User-Agent: G2/1.0
MIME-Version: 1.0
Message-ID: <93df825f-5c18-4a02-a399-74c7ee7cf784n@googlegroups.com>
Subject: How to test if file = Ada.Text_IO.Standard_Input ?
From: reinert <reinkor@gmail.com>
Injection-Date: Sat, 23 Oct 2021 08:06:39 +0000
Content-Type: text/plain; charset="UTF-8"
Xref: reader02.eternal-september.org comp.lang.ada:63061
List-Id: <comp.lang.ada>

Hello,

the following program:

  procedure test1 (file1 : in Ada.Text_IO.File_Type) is
      term1 : constant Boolean := file1 in Ada.Text_IO.Standard_Input;
   begin
      null;
   end test1;

compiles under gnat-10 (debian). The point here is to test if "file1" represents the terminal.

However, when I try to compile using the current GNAT Community Edition from AdaCore, I get the error:

test7.adb:38:41: error: invalid operand types for operator "="
test7.adb:38:41: error: left operand has private type "Ada.Text_Io.File_Type"
test7.adb:38:41: error: right operand has type "Ada.Text_Io.File_Access"
gnatmake: "test7.adb" compilation error

So how can I test if "file1" referes to the terminal using the lastest GNAT Community Edition?

reinert