diff options
| -rw-r--r-- | gcc/ada/sem_attr.adb | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/gcc/ada/sem_attr.adb b/gcc/ada/sem_attr.adb index 8f118af..4ec22ae 100644 --- a/gcc/ada/sem_attr.adb +++ b/gcc/ada/sem_attr.adb @@ -3819,7 +3819,9 @@ package body Sem_Attr is -- Denorm -- ------------ - when Attribute_Denorm => + when Attribute_Denorm + | Attribute_Signed_Zeros + => Check_Floating_Point_Type_0; Set_Etype (N, Standard_Boolean); @@ -5949,9 +5951,7 @@ package body Sem_Attr is -- Signed_Zeros -- ------------------ - when Attribute_Signed_Zeros => - Check_Floating_Point_Type_0; - Set_Etype (N, Standard_Boolean); + -- Shares processing with Denorm attribute ---------- -- Size -- |