1 files changed, 5 insertions, 0 deletions
diff --git a/gcc/ada/xr_tabls.adb b/gcc/ada/xr_tabls.adb
index 25a775f..0b97c12 100644
--- a/gcc/ada/xr_tabls.adb
+++ b/gcc/ada/xr_tabls.adb
@@ -1135,6 +1135,11 @@ package body Xr_Tabls is
 
          Buffer (Read_Ptr) := EOF;
          Contents := new String'(Buffer (1 .. Read_Ptr));
+
+         if Read_Ptr /= Length + 1 then
+            raise Ada.Text_IO.End_Error;
+         end if;
+
          Close (FD);
       end;
    end Read_File;