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

            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 input
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 screen.

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; 

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;  

Is this expected behavior or an error?

gnat 11.4.0  linux mint 21.3

Reply via email to