diff options
| -rw-r--r-- | gcc/ada/a-textio.adb | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/gcc/ada/a-textio.adb b/gcc/ada/a-textio.adb index cc5a93b..d18da65 100644 --- a/gcc/ada/a-textio.adb +++ b/gcc/ada/a-textio.adb @@ -1856,7 +1856,7 @@ package body Ada.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 |