1 files changed, 1 insertions, 1 deletions
diff --git a/gcc/ada/a-witeio.adb b/gcc/ada/a-witeio.adb
index 4d59e4ddc99..e877405820f 100644
--- a/gcc/ada/a-witeio.adb
+++ b/gcc/ada/a-witeio.adb
@@ -1614,7 +1614,7 @@ package body Ada.Wide_Text_IO is
             --  up for such files, so we assume an implicit LM in this case.
 
             loop
-               exit when ch = LM or ch = EOF;
+               exit when ch = LM or else ch = EOF;
                ch := Getc (File);
             end loop;
          end if;