diff options
| -rw-r--r-- | gcc/ada/sem_disp.adb | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/gcc/ada/sem_disp.adb b/gcc/ada/sem_disp.adb index b0a8c6a..0dff74f 100644 --- a/gcc/ada/sem_disp.adb +++ b/gcc/ada/sem_disp.adb @@ -561,7 +561,7 @@ package body Sem_Disp is and then not Is_Abstract_Subprogram (Alias (Subp)) and then No (DTC_Entity (Subp)) and then Find_Dispatching_Type (Subp) = - Find_Dispatching_Type (Alias (Subp)) + Find_Dispatching_Type (Alias (Subp)) then -- Private overriding of inherited abstract operation, call is -- legal. |