diff options
Diffstat (limited to 'gcc/ada/a-witeio.adb')
| -rw-r--r-- | gcc/ada/a-witeio.adb | 3 |
1 files changed, 3 insertions, 0 deletions
diff --git a/gcc/ada/a-witeio.adb b/gcc/ada/a-witeio.adb index ab057950ae8..c83230cdea7 100644 --- a/gcc/ada/a-witeio.adb +++ b/gcc/ada/a-witeio.adb @@ -1806,6 +1806,9 @@ package body Ada.Wide_Text_IO is (File : in out Wide_Text_AFCB; Item : Stream_Element_Array) is + pragma Warnings (Off, File); + -- Because in this implementation we don't need IN OUT, we only read + Siz : constant size_t := Item'Length; begin |