diff options
Diffstat (limited to 'gcc/ada/sem_ch9.adb')
| -rw-r--r-- | gcc/ada/sem_ch9.adb | 6 |
1 files changed, 6 insertions, 0 deletions
diff --git a/gcc/ada/sem_ch9.adb b/gcc/ada/sem_ch9.adb index e32612e..bf387d3 100644 --- a/gcc/ada/sem_ch9.adb +++ b/gcc/ada/sem_ch9.adb @@ -1700,6 +1700,12 @@ package body Sem_Ch9 is Process_Formals (Formals, N); Create_Extra_Formals (Def_Id); End_Scope; + + -- If the entry has no formals, extra formals are definitely not + -- required. + + else + Freeze_Extra_Formals (Def_Id); end if; if Ekind (Def_Id) = E_Entry then |