From: ebotcazou <ebotcazou@138bc75d-0d04-0410-961f-82ee72b054a4>
Date: Thu, 28 Apr 2016 10:58:38 +0000 (+0000)
Subject: 	PR ada/70786
X-Git-Url: http://git.ipfire.org/gitweb.cgi?a=commitdiff_plain;h=535d6bc8b42aef8da288c3755da33dc91523167a;p=thirdparty%2Fgcc.git

	PR ada/70786
	* a-textio.adb (Get_Immediate): Add missing 'not' in expression.


git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@235554 138bc75d-0d04-0410-961f-82ee72b054a4
---

diff --git a/gcc/ada/ChangeLog b/gcc/ada/ChangeLog
index f277eaf2ed33..cd0ec39fbf81 100644
--- a/gcc/ada/ChangeLog
+++ b/gcc/ada/ChangeLog
@@ -1,3 +1,8 @@
+2016-04-28  Eric Botcazou  <ebotcazou@adacore.com>
+
+	PR ada/70786
+	* a-textio.adb (Get_Immediate): Add missing 'not' in expression.
+
 2016-04-27  Eric Botcazou  <ebotcazou@adacore.com>
 
 	* sem_aux.adb (Is_By_Reference_Type): Also return true for a tagged
diff --git a/gcc/ada/a-textio.adb b/gcc/ada/a-textio.adb
index 59f9190ac188..f9219e3b3a91 100644
--- a/gcc/ada/a-textio.adb
+++ b/gcc/ada/a-textio.adb
@@ -668,7 +668,7 @@ package body Ada.Text_IO is
             Available := True;
 
             Item :=
-              (if Is_Start_Of_Encoding (Character'Val (ch), File.WC_Method)
+              (if not Is_Start_Of_Encoding (Character'Val (ch), File.WC_Method)
                then Character'Val (ch)
                else Get_Upper_Half_Char_Immed (Character'Val (ch), File));
          end if;