[Ada] Process Truncation just like other floating point attributes

gcc/ada/

	* sem_attr.adb (Analyze_Attribute): Merge similar code for
	Truncation and other floating point attributes.

diff --git a/gcc/ada/sem_attr.adb b/gcc/ada/sem_attr.adb
index 847d86359a786fa7b2677ad17d22b115d4fbe461..b243af6e1ffe9376b59009a0424cb9cdf79a1aa6 100644 (file)
--- a/gcc/ada/sem_attr.adb
+++ b/gcc/ada/sem_attr.adb
@@ -3402,6 +3402,7 @@ package body Sem_Attr is
          | Attribute_Machine_Rounding
          | Attribute_Model
          | Attribute_Rounding
+         | Attribute_Truncation
          | Attribute_Unbiased_Rounding
       =>
          Check_Floating_Point_Type_1;
@@ -6409,10 +6410,7 @@ package body Sem_Attr is
       -- Truncation --
       ----------------
 
-      when Attribute_Truncation =>
-         Check_Floating_Point_Type_1;
-         Resolve (E1, P_Base_Type);
-         Set_Etype (N, P_Base_Type);
+      --  Shares processing with Ceiling attribute
 
       ----------------
       -- Type_Class --