diff options
Diffstat (limited to 'gcc/ada/sem_prag.adb')
| -rw-r--r-- | gcc/ada/sem_prag.adb | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/gcc/ada/sem_prag.adb b/gcc/ada/sem_prag.adb index 57712b06d9c..d5d82b2e33d 100644 --- a/gcc/ada/sem_prag.adb +++ b/gcc/ada/sem_prag.adb @@ -7477,7 +7477,9 @@ package body Sem_Prag is Error_Pragma ("pragma% ignored, cannot pack aliased components?"); - elsif Has_Atomic_Components (Typ) then + elsif Has_Atomic_Components (Typ) + or else Is_Atomic (Component_Type (Typ)) + then Error_Pragma ("?pragma% ignored, cannot pack atomic components"); |