diff options
Diffstat (limited to 'gcc/ada/a-ztexio.adb')
| -rw-r--r-- | gcc/ada/a-ztexio.adb | 3 |
1 files changed, 3 insertions, 0 deletions
diff --git a/gcc/ada/a-ztexio.adb b/gcc/ada/a-ztexio.adb index 2134bd63541..cd4970a554e 100644 --- a/gcc/ada/a-ztexio.adb +++ b/gcc/ada/a-ztexio.adb @@ -1807,6 +1807,9 @@ package body Ada.Wide_Wide_Text_IO is (File : in out Wide_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 |