Weird Bug in Get_Line

[Brian Kolden <bakolden5@gmail.com>]

I came across an interesting issue in the Get_Line function. When piping in a file (using the linux cammand '<') GNAT "raises ADA.IO_EXCEPTIONS.END_ERROR : a-tigeli.adb:96". 

However, the interesting issue is this only happens for a very small number of line lengths. I've noticed the exception is only thrown on lines with length 500, 501, 1000, 1001. Lines bigger or smaller don't seem to raise the issue, even other multiples of 500. This only is effected when using a file as input, copying and pasting the line into the terminal does not seem to trigger it.

So, is this an GNAT issue or an OS issue?


with Ada.Text_IO; use Ada.Text_IO;
procedure Test is
	type String_Pointer is access all String;
	S : String := Get_Line;
begin
	null;
end Test;