parent
15954beb2b
commit
b26f70a095
|
@ -1885,8 +1885,7 @@ package body Sem_Ch13 is
|
|||
if Present (Default_Element) then
|
||||
Analyze (Default_Element);
|
||||
if Is_Entity_Name (Default_Element)
|
||||
and then
|
||||
Covers (Entity (Default_Element), Etype (Subp))
|
||||
and then Covers (Entity (Default_Element), Etype (Subp))
|
||||
then
|
||||
return;
|
||||
end if;
|
||||
|
|
Loading…
Reference in New Issue