diff options
Diffstat (limited to 'gcc/ada/sem_ch6.adb')
| -rw-r--r-- | gcc/ada/sem_ch6.adb | 4 |
1 files changed, 4 insertions, 0 deletions
diff --git a/gcc/ada/sem_ch6.adb b/gcc/ada/sem_ch6.adb index 8c88d8f9acb..cdb39fb35be 100644 --- a/gcc/ada/sem_ch6.adb +++ b/gcc/ada/sem_ch6.adb @@ -3450,6 +3450,10 @@ package body Sem_Ch6 is Push_Scope (Designator); Process_Formals (Formals, N); + -- Check dimensions in N for formals with default expression + + Analyze_Dimension_Formals (N, Formals); + -- Ada 2005 (AI-345): If this is an overriding operation of an -- inherited interface operation, and the controlling type is -- a synchronized type, replace the type with its corresponding |