From b2410a1f023b5206155b62678dc40d70d3e7207b Mon Sep 17 00:00:00 2001
From: Piotr Trojanek <trojanek@adacore.com>
Date: Thu, 28 May 2020 20:28:28 +0200
Subject: [PATCH] [Ada] Target name is an object reference

gcc/ada/

	* sem_util.adb (Is_Object_Reference): Return True on
	N_Target_Name.
---
 gcc/ada/sem_util.adb | 5 +++++
 1 file changed, 5 insertions(+)

diff --git a/gcc/ada/sem_util.adb b/gcc/ada/sem_util.adb
index 59073b0355f..56fd677ed3c 100644
--- a/gcc/ada/sem_util.adb
+++ b/gcc/ada/sem_util.adb
@@ -17217,6 +17217,11 @@ package body Sem_Util is
                return Is_Rewrite_Substitution (N)
                  and then Is_Object_Reference (Original_Node (N));
 
+            --  AI12-0125: Target name represents a constant object
+
+            when N_Target_Name =>
+               return True;
+
             when others =>
                return False;
          end case;
-- 
2.30.2