From: Piotr Trojanek <trojanek@adacore.com>
Date: Wed, 24 Jun 2020 17:18:19 +0000 (+0200)
Subject: [Ada] Fix access to uninitialized global variable when emitting error
X-Git-Url: https://git.libre-soc.org/?a=commitdiff_plain;h=e4f503be5d8f4b6f985f91ffe8a42ed9663466b3;p=gcc.git

[Ada] Fix access to uninitialized global variable when emitting error

gcc/ada/

	* sem_util.adb (Bad_Predicated_Subtype_Use): Emit an
	unconditional error, not a conditional warning.
---

diff --git a/gcc/ada/sem_util.adb b/gcc/ada/sem_util.adb
index 15336307ffd..2b92caddafa 100644
--- a/gcc/ada/sem_util.adb
+++ b/gcc/ada/sem_util.adb
@@ -982,7 +982,7 @@ package body Sem_Util is
                    Reason => PE_Bad_Predicated_Generic_Type));
 
             else
-               Error_Msg_FE (Msg & "<<", N, Typ);
+               Error_Msg_FE (Msg, N, Typ);
             end if;
 
          else