diff --git a/gcc/ada/a-witeio.adb b/gcc/ada/a-witeio.adb index 1a4b0f5e0e7..cd25d411994 100644 --- a/gcc/ada/a-witeio.adb +++ b/gcc/ada/a-witeio.adb @@ -1552,7 +1552,7 @@ package body Ada.Wide_Text_IO is if Start = 0 then File.WC_Method := WCEM_Brackets; - elsif Start /= 0 then + else if Stop = Start then for J in WC_Encoding_Letters'Range loop if File.Form (Start) = WC_Encoding_Letters (J) then