diff options
Diffstat (limited to 'gcc')
| -rw-r--r-- | gcc/ada/checks.adb | 2 |
1 files changed, 2 insertions, 0 deletions
diff --git a/gcc/ada/checks.adb b/gcc/ada/checks.adb index bbccab7..6fb33b4 100644 --- a/gcc/ada/checks.adb +++ b/gcc/ada/checks.adb @@ -1388,6 +1388,8 @@ package body Checks is if Nkind (N) = N_Aggregate and then No (Expressions (N)) + and then Nkind (First (Component_Associations (N))) = + N_Component_Association and then Nkind (First (Choices (First (Component_Associations (N))))) = N_Others_Choice |