Strange problem in GNAT 3.04 Win 95

[smoore@chowgar.demon.co.uk (Simon Moore)]

Hello all

If anybody has got the time could they please take a look at the
listing below. The code seems syntactically and semantically correct
but doesn't perform as it should.

When 2 is selected you don't get the chance to input a character
although option 1 works fine.

But, if you un-coment the get(c) before the case statement the program
works fine. It doesn't bother with that get(c) but the one inside the
case statement does.

Any ideas?


-- ** Program listing ** --

with gnat.io; use gnat.io;

procedure t1 is

	choice: INTEGER;
	n: NATURAL;
	c: CHARACTER;
	quitflag: BOOLEAN:= FALSE;

BEGIN

	WHILE quitflag= FALSE LOOP

		NEW_LINE;
		PUT_LINE("Select an option");
		PUT_LINE("****************");
		PUT_LINE("1 - Get a natural");
		PUT_LINE("2 - Get a character");
		PUT_LINE("3 - Nothing");
		PUT_LINE("4 - Nothing");
		NEW_LINE;
		PUT_LINE("0 - Exit");
  
		GET(choice);

		-- ** GET(c);	-- THIS IS THE IMPORTANT LINE

		CASE choice IS

			WHEN 1 =>
				PUT_LINE("Selection 1");
				GET(n);
				PUT(n);
				PUT_LINE(" was entered");
				PUT_LINE("~~~~~~~");
      
			WHEN 2 =>
				PUT_LINE("Selection 2");
				GET(c);
				PUT(c);
				PUT_LINE(" was entered");
				PUT_LINE("~~~~~~~");

			WHEN 3 =>
				PUT_LINE("Selection 3");
				PUT_LINE("~~~~~~~");
      
			 WHEN 4 =>
				PUT_LINE("Selection 4");
				PUT_LINE("~~~~~~~");

			WHEN 0 =>
				quitflag:= TRUE;
    
			WHEN others =>
				PUT("Invalid entry");

		END CASE;

	END LOOP;

END t1;
*****************************************************************************
* Simon Moore - smoore@chowgar.demon.co.uk - http://www.chowgar.demon.co.uk *
*****************************************************************************