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-Tag: basepoints/gcc-12~2233
X-Git-Url: http://git.ipfire.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=a21ec1de4e512e2aa26f8cb8e45f5ef98788b203;p=thirdparty%2Fgcc.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 526224454f62..1a574c67b99c 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 --