diff options
Diffstat (limited to 'gcc/ada/sem_ch9.adb')
| -rw-r--r-- | gcc/ada/sem_ch9.adb | 5 |
1 files changed, 3 insertions, 2 deletions
diff --git a/gcc/ada/sem_ch9.adb b/gcc/ada/sem_ch9.adb index 9dcd7de..fb47956 100644 --- a/gcc/ada/sem_ch9.adb +++ b/gcc/ada/sem_ch9.adb @@ -2436,10 +2436,11 @@ package body Sem_Ch9 is -- AI05-0225: the target protected object of a requeue must be a -- variable. This is a binding interpretation that applies to all - -- versions of the language. + -- versions of the language. Note that the subprogram does not have + -- to be a protected operation: it can be an primitive implemented + -- by entry with a formal that is a protected interface. if Present (Target_Obj) - and then Ekind (Scope (Entry_Id)) in Protected_Kind and then not Is_Variable (Target_Obj) then Error_Msg_N |