diff options
Diffstat (limited to 'gcc/ada/freeze.adb')
| -rw-r--r-- | gcc/ada/freeze.adb | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/gcc/ada/freeze.adb b/gcc/ada/freeze.adb index 98a23a2..302b431 100644 --- a/gcc/ada/freeze.adb +++ b/gcc/ada/freeze.adb @@ -1127,7 +1127,7 @@ package body Freeze is begin Par := Parent (E); - -- Array may be qualified, so find outer context. + -- Array may be qualified, so find outer context if Nkind (Par) = N_Qualified_Expression then Par := Parent (Par); |