diff options
Diffstat (limited to 'gcc/ada/scng.adb')
| -rw-r--r-- | gcc/ada/scng.adb | 19 |
1 files changed, 8 insertions, 11 deletions
diff --git a/gcc/ada/scng.adb b/gcc/ada/scng.adb index 0d5cff8..df6a689 100644 --- a/gcc/ada/scng.adb +++ b/gcc/ada/scng.adb @@ -25,6 +25,7 @@ with Atree; use Atree; with Csets; use Csets; +with Errout; use Errout; with Hostparm; use Hostparm; with Namet; use Namet; with Opt; use Opt; @@ -1299,19 +1300,15 @@ package body Scng is return; end if; - when '@' => - if Ada_Version < Ada_2020 then - Error_Msg ("target_name is an Ada 202x feature", Scan_Ptr); - Scan_Ptr := Scan_Ptr + 1; + -- AI12-0125-03 : @ is target_name - else - -- AI12-0125-03 : @ is target_name + when '@' => + Error_Msg_Ada_2020_Feature ("target name", Token_Ptr); - Accumulate_Checksum ('@'); - Scan_Ptr := Scan_Ptr + 1; - Token := Tok_At_Sign; - return; - end if; + Accumulate_Checksum ('@'); + Scan_Ptr := Scan_Ptr + 1; + Token := Tok_At_Sign; + return; -- Asterisk (can be multiplication operator or double asterisk which -- is the exponentiation compound delimiter). |