[Ada] Fix access to uninitialized global variable when emitting error
authorPiotr Trojanek <trojanek@adacore.com>
Wed, 24 Jun 2020 17:18:19 +0000 (19:18 +0200)
committerPierre-Marie de Rodat <derodat@adacore.com>
Thu, 15 Oct 2020 09:39:12 +0000 (05:39 -0400)
gcc/ada/

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

gcc/ada/sem_util.adb

index 15336307ffdb3e9976ee3ef68804b8a5907df720..2b92caddafaa477df98c53eaee5720dde379150a 100644 (file)
@@ -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