diff options
| author | Eric Botcazou <ebotcazou@adacore.com> | 2024-10-28 09:30:07 +0100 |
|---|---|---|
| committer | Marc Poulhiès <dkm@gcc.gnu.org> | 2024-11-12 14:00:52 +0100 |
| commit | 1aebc8bfdbe0d2e62e94943356d99174b525f1cb (patch) | |
| tree | 4a89bb9615e4282f149223c7b5e739b13c781940 | |
| parent | 1d602710a2feb91b66cb09d2d18bdbe7d429dee9 (diff) | |
| download | gcc-1aebc8bfdbe0d2e62e94943356d99174b525f1cb.zip gcc-1aebc8bfdbe0d2e62e94943356d99174b525f1cb.tar.gz gcc-1aebc8bfdbe0d2e62e94943356d99174b525f1cb.tar.bz2 | |
ada: Fix bogus error for delta aggregate as expression function
The compiler correctly accepts the other forms of aggregates.
gcc/ada/ChangeLog:
PR ada/113868
* par-ch6.adb (P_Subprogram) <Scan_Body_Or_Expression_Function>:
Add delta aggregate alongside the other forms of aggregates.
| -rw-r--r-- | gcc/ada/par-ch6.adb | 1 |
1 files changed, 1 insertions, 0 deletions
diff --git a/gcc/ada/par-ch6.adb b/gcc/ada/par-ch6.adb index 7fe4337..c3cc572 100644 --- a/gcc/ada/par-ch6.adb +++ b/gcc/ada/par-ch6.adb @@ -884,6 +884,7 @@ package body Ch6 is if not (Paren_Count (Expr) /= 0 or else Nkind (Expr) in N_Aggregate + | N_Delta_Aggregate | N_Extension_Aggregate | N_Quantified_Expression) then |