From: Bob Duff <duff@adacore.com>
Date: Fri, 18 Dec 2020 19:59:45 +0000 (-0500)
Subject: [Ada] Error on T'Reduce of when T is not a container
X-Git-Tag: basepoints/gcc-13~8039
X-Git-Url: http://git.ipfire.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=c1efbbba84d4d2f266d2591af747e7f64c2f473a;p=thirdparty%2Fgcc.git

[Ada] Error on T'Reduce of when T is not a container

gcc/ada/

	* sem_attr.adb (Analyze_Attribute): Change "$" to "&".
	Otherwise, Errout will trip over an uninitialized (invalid)
	variable (Error_Msg_Unit_1).
---

diff --git a/gcc/ada/sem_attr.adb b/gcc/ada/sem_attr.adb
index 34865f4d1d53..2226eced4421 100644
--- a/gcc/ada/sem_attr.adb
+++ b/gcc/ada/sem_attr.adb
@@ -5682,7 +5682,7 @@ package body Sem_Attr is
                   null;
                else
                   Error_Msg_NE
-                    ("cannot apply Reduce to object of type$", N, Typ);
+                    ("cannot apply Reduce to object of type&", N, Typ);
                end if;
 
             elsif Present (Expressions (Stream))