diff options
| author | Etienne Servais <servais@adacore.com> | 2022-01-03 14:41:58 +0100 |
|---|---|---|
| committer | Pierre-Marie de Rodat <derodat@adacore.com> | 2022-01-11 13:24:49 +0000 |
| commit | 805655c137088519751e4ca18df722355a512d88 (patch) | |
| tree | 14854306439bba8e1e72de3f73942511052fd5cc /gcc | |
| parent | 1be42e5907524af490afdec8ff2e200e69bfa8aa (diff) | |
| download | gcc-805655c137088519751e4ca18df722355a512d88.zip gcc-805655c137088519751e4ca18df722355a512d88.tar.gz gcc-805655c137088519751e4ca18df722355a512d88.tar.bz2 | |
[Ada] Accept square brackets for expression functions
gcc/ada/
* par-ch6.adb (Scan_Body_Or_Expression_Function): Accept left
bracket as token to open an expression function.
Diffstat (limited to 'gcc')
| -rw-r--r-- | gcc/ada/par-ch6.adb | 9 |
1 files changed, 8 insertions, 1 deletions
diff --git a/gcc/ada/par-ch6.adb b/gcc/ada/par-ch6.adb index 1b3cf94..d972ead 100644 --- a/gcc/ada/par-ch6.adb +++ b/gcc/ada/par-ch6.adb @@ -841,7 +841,14 @@ package body Ch6 is begin -- Expression_Function case - if Token = Tok_Left_Paren + -- If likely an aggregate, check we are in Ada 2022 mode + + if Token = Tok_Left_Bracket then + Error_Msg_Ada_2022_Feature + ("!aggregates as expression function", Token_Ptr); + end if; + + if Token in Tok_Left_Paren | Tok_Left_Bracket or else Likely_Expression_Function then -- Check expression function allowed here |