[Ada] Target name is an object reference

gcc/ada/

	* sem_util.adb (Is_Object_Reference): Return True on
	N_Target_Name.

diff --git a/gcc/ada/sem_util.adb b/gcc/ada/sem_util.adb
index 59073b0355f887d28a4ccdd228b6a4d1627f8fa5..56fd677ed3ce5e45a5e4c8b4a647cbd600fb45bf 100644 (file)
--- 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;