[Bug ada/12888] New: Can't open files lager than 2**31 - 1 byte

["berndtrog at yahoo dot com" <gcc-bugzilla at gcc dot gnu dot org>]

PLEASE REPLY TO gcc-bugzilla@gcc.gnu.org ONLY, *NOT* gcc-bugs@gcc.gnu.org.

http://gcc.gnu.org/bugzilla/show_bug.cgi?id=12888

           Summary: Can't open files lager than 2**31 - 1 byte
           Product: gcc
           Version: 3.3.2
            Status: UNCONFIRMED
          Severity: normal
          Priority: P2
         Component: ada
        AssignedTo: unassigned at gcc dot gnu dot org
        ReportedBy: berndtrog at yahoo dot com
                CC: gcc-bugs at gcc dot gnu dot org
  GCC host triplet: i686-pc-linux-gnu

with Ada.sequential_IO;

procedure LFS_Test is
   package Io is new Ada.Sequential_IO (integer);
   Fh : io.File_Type;
begin
      io.open( File => Fh,
	       Mode => Io.in_File,
	       Name => "big_file");
end;

Howto repeat:
$ dd if=/dev/zero bs=1 count=1 of=big_file seek=2147483647
$ ./lfs_test

raised ADA.IO_EXCEPTIONS.NAME_ERROR : s-fileio.adb:888