From a21ec1de4e512e2aa26f8cb8e45f5ef98788b203 Mon Sep 17 00:00:00 2001 From: Piotr Trojanek Date: Mon, 23 Nov 2020 15:30:06 +0100 Subject: [PATCH] [Ada] Analyze second parameter of attribute Scaling gcc/ada/ * sem_attr.adb (Analyze_Attribute): Resolve second parameter of attribute Scaling just like it is resolved for a similar attribute Compose. --- gcc/ada/sem_attr.adb | 1 + 1 file changed, 1 insertion(+) diff --git a/gcc/ada/sem_attr.adb b/gcc/ada/sem_attr.adb index 526224454f6..1a574c67b99 100644 --- a/gcc/ada/sem_attr.adb +++ b/gcc/ada/sem_attr.adb @@ -5953,6 +5953,7 @@ package body Sem_Attr is Check_Floating_Point_Type_2; Set_Etype (N, P_Base_Type); Resolve (E1, P_Base_Type); + Resolve (E2, Any_Integer); ------------------ -- Signed_Zeros -- -- 2.30.2