diff options
Diffstat (limited to 'gcc/ada/sem_attr.adb')
| -rw-r--r-- | gcc/ada/sem_attr.adb | 5 |
1 files changed, 3 insertions, 2 deletions
diff --git a/gcc/ada/sem_attr.adb b/gcc/ada/sem_attr.adb index bc5139f..53f66b0 100644 --- a/gcc/ada/sem_attr.adb +++ b/gcc/ada/sem_attr.adb @@ -5041,7 +5041,8 @@ package body Sem_Attr is when Attribute_Scalar_Storage_Order => Scalar_Storage_Order : declare - Ent : Entity_Id := Empty; + Ent : Entity_Id := Empty; + begin Check_E0; Check_Type; @@ -5053,7 +5054,7 @@ package body Sem_Attr is -- the default bit order for the target. if not (GNAT_Mode and then Is_Generic_Type (P_Type)) - and then not In_Instance + and then not In_Instance then Error_Attr_P ("prefix of % attribute must be record or array type"); |