1 files changed, 3 insertions, 0 deletions
diff --git a/gcc/ada/tree_io.adb b/gcc/ada/tree_io.adb
index d0170dcb59f..370a40f2187 100644
--- a/gcc/ada/tree_io.adb
+++ b/gcc/ada/tree_io.adb
@@ -373,8 +373,11 @@ package body Tree_IO is
 
       declare
          B : Byte;
+         pragma Warnings (Off, B);
+
       begin
          B := Read_Byte;
+
       exception
          when Tree_Format_Error => return;
       end;