diff options
| -rw-r--r-- | gcc/ada/sem_prag.adb | 4 |
1 files changed, 4 insertions, 0 deletions
diff --git a/gcc/ada/sem_prag.adb b/gcc/ada/sem_prag.adb index 15f4e18..c58bc4c 100644 --- a/gcc/ada/sem_prag.adb +++ b/gcc/ada/sem_prag.adb @@ -3194,6 +3194,10 @@ package body Sem_Prag is if Chars (Choice) = Chars (Formal) then Set_Mechanism_Value (Formal, Expression (Massoc)); + + -- Set entity on identifier for ASIS + Set_Entity (Choice, Formal); + exit; end if; |