Message ID | 20200727080552.GA36339@adacore.com |
---|---|
State | New |
Headers | show |
Series | [Ada] AI12-0194: Language-defined aspects and entry bodies | expand |
diff --git a/gcc/ada/sem_prag.adb b/gcc/ada/sem_prag.adb --- a/gcc/ada/sem_prag.adb +++ b/gcc/ada/sem_prag.adb @@ -19452,7 +19452,8 @@ package body Sem_Prag is -- Otherwise the pragma is associated with an illegal construct else - Error_Pragma ("pragma % must apply to a protected entry"); + Error_Pragma + ("pragma % must apply to a protected entry declaration"); return; end if;