From mboxrd@z Thu Jan  1 00:00:00 1970
Return-Path: <gcc-bugzilla@gcc.gnu.org>
Received: by sourceware.org (Postfix, from userid 48)
	id 797173858D37; Sun, 15 Oct 2023 17:12:30 +0000 (GMT)
DKIM-Filter: OpenDKIM Filter v2.11.0 sourceware.org 797173858D37
DKIM-Signature: v=1; a=rsa-sha256; c=relaxed/relaxed; d=gcc.gnu.org;
	s=default; t=1697389950;
	bh=gGKTWlWky6fTkvw6UNnM4sRoyl4Zion9DQm5LlfnOMc=;
	h=From:To:Subject:Date:From;
	b=enJeceGzvswubu0mTfUytafwbGsrBoFnjoJLKni7pE19r7m05UNG0fnGTL+wn54Bv
	 BnW28MgnbmlHaeqTC4O4kmFsx9RQeLBm8vvkrclZTQIkG/iuLZFqInYHvAUeGKz0lM
	 rsDRRGcVyFPnLgQz4D/UIkgXL3MwEeJiz084mTgA=
From: "thiebauddick2 at aol dot com" <gcc-bugzilla@gcc.gnu.org>
To: gcc-bugs@gcc.gnu.org
Subject: [Bug ada/111825] New: get_immediate echos without wait, no echo with
 wait: error?
Date: Sun, 15 Oct 2023 17:12:30 +0000
X-Bugzilla-Reason: CC
X-Bugzilla-Type: new
X-Bugzilla-Watch-Reason: None
X-Bugzilla-Product: gcc
X-Bugzilla-Component: ada
X-Bugzilla-Version: 12.3.0
X-Bugzilla-Keywords: 
X-Bugzilla-Severity: normal
X-Bugzilla-Who: thiebauddick2 at aol dot com
X-Bugzilla-Status: UNCONFIRMED
X-Bugzilla-Resolution: 
X-Bugzilla-Priority: P3
X-Bugzilla-Assigned-To: unassigned at gcc dot gnu.org
X-Bugzilla-Target-Milestone: ---
X-Bugzilla-Flags: 
X-Bugzilla-Changed-Fields: bug_id short_desc product version bug_status
 bug_severity priority component assigned_to reporter cc target_milestone
Message-ID: <bug-111825-4@http.gcc.gnu.org/bugzilla/>
Content-Type: text/plain; charset="UTF-8"
Content-Transfer-Encoding: quoted-printable
X-Bugzilla-URL: http://gcc.gnu.org/bugzilla/
Auto-Submitted: auto-generated
MIME-Version: 1.0
List-Id: <gcc-bugs.sourceware.org>

https://gcc.gnu.org/bugzilla/show_bug.cgi?id=3D111825

            Bug ID: 111825
           Summary: get_immediate echos without wait, no echo with wait:
                    error?
           Product: gcc
           Version: 12.3.0
            Status: UNCONFIRMED
          Severity: normal
          Priority: P3
         Component: ada
          Assignee: unassigned at gcc dot gnu.org
          Reporter: thiebauddick2 at aol dot com
                CC: dkm at gcc dot gnu.org
  Target Milestone: ---

When running ada.text_io.get_immediate with a wait, it does not echo the in=
put
character from the keyboard. When running it without the wait, it does not.
Running the following program and pushing the "x" key gets: AxB on the scre=
en.

with ada.text_io; use ada.text_io;
procedure test3 is
  c: character;
  avail: boolean;
begin
  put("A");
  loop
    Get_Immediate(c, Avail);
    if Avail then
      exit;
    end if;
    delay 0.01;
  end loop;
  put ("B");
end test3;=20

However, running the following program and pushing the "X" key gets: AB on =
the
screen.

with ada.text_io; use ada.text_io;
procedure test4 is
  c: character;
begin
  put("A");
  Get_Immediate(c);
  put ("B");
end test4;=20=20

Is this expected behavior or an error?

gnat 11.4.0  linux mint 21.3=