From: Piotr Trojanek <trojanek@adacore.com>
Date: Mon, 23 Nov 2020 14:30:06 +0000 (+0100)
Subject: [Ada] Analyze second parameter of attribute Scaling
X-Git-Url: https://git.libre-soc.org/?a=commitdiff_plain;h=a21ec1de4e512e2aa26f8cb8e45f5ef98788b203;p=gcc.git

[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.
---

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 --