diff options
Diffstat (limited to 'gcc/ada/sem_ch9.adb')
-rw-r--r-- | gcc/ada/sem_ch9.adb | 1 |
1 files changed, 1 insertions, 0 deletions
diff --git a/gcc/ada/sem_ch9.adb b/gcc/ada/sem_ch9.adb index 653774fdee1..d7bff861585 100644 --- a/gcc/ada/sem_ch9.adb +++ b/gcc/ada/sem_ch9.adb @@ -294,6 +294,7 @@ package body Sem_Ch9 is while Present (E1) loop if Ekind (E1) = E_Procedure + and then Chars (E1) = Chars (Entry_Nam) and then Type_Conformant (E1, Entry_Nam) then Error_Msg_N ("entry name is not visible", N); |