[Ada] Revert mistaken negation related to references to labels

gcc/ada/

	* sem_ch8.adb (Find_Direct_Name): Fix code to match the comment.

diff --git a/gcc/ada/sem_ch8.adb b/gcc/ada/sem_ch8.adb
index 08414b2170c21ac457e2fd867f853a234ab304c9..f23db52c2891f64839f9e2c1d36c2d7cb4a07e62 100644 (file)
--- a/gcc/ada/sem_ch8.adb
+++ b/gcc/ada/sem_ch8.adb
@@ -6047,9 +6047,9 @@ package body Sem_Ch8 is
 
                begin
                   --  Generate reference unless this is an actual parameter
-                  --  (see comment below)
+                  --  (see comment below).
 
-                  if Reference_OK and then Is_Actual_Parameter then
+                  if Reference_OK and then not Is_Actual_Parameter then
                      Generate_Reference (E, N);
                      Set_Referenced (E, R);
                   end if;