ada: Incorrect error message on use of 'Result with wrong prefix

gcc/ada/ChangeLog:

	* sem_util.adb (Is_Access_To_Subprogram_Wrapper): Remove useless
	call to Can_Have_Formals. Found by Dismukes.

diff --git a/gcc/ada/sem_util.adb b/gcc/ada/sem_util.adb
index 7d6e0fc7d8ac9892be5527a4c2b1a3cec236fa7c..486c31ee17103ff1919f20841b0fec693eee0d94 100644 (file)
--- a/gcc/ada/sem_util.adb
+++ b/gcc/ada/sem_util.adb
@@ -12756,7 +12756,6 @@ package body Sem_Util is
 
    begin
       if not Is_Wrapper (E)
-        or else not Can_Have_Formals (E)
         or else No (Last_Formal (E))
       then
          return False;