[Ada] Fix comment about subprogram unnesting and unconstrained arrays

gcc/ada/

	* exp_unst.adb (Unnest_Subprogram): Sync comment with the
	current code.

diff --git a/gcc/ada/exp_unst.adb b/gcc/ada/exp_unst.adb
index dcae4b31222c8dce9df6a2e9c6a6c9ebab1b74f3..05f11483e96729629108619df53c041da6760ec9 100644 (file)
--- a/gcc/ada/exp_unst.adb
+++ b/gcc/ada/exp_unst.adb
@@ -2093,7 +2093,8 @@ package body Exp_Unst is
 
                                  --  Build and insert the assignment:
                                  --    ARECn.nam := nam'Address
-                                 --  or else 'Access for unconstrained array
+                                 --  or else 'Unchecked_Access for
+                                 --  unconstrained array.
 
                                  if Needs_Fat_Pointer (Ent) then
                                     Attr := Name_Unchecked_Access;