From ff2746728050429684bf62729df798189cc1d396 Mon Sep 17 00:00:00 2001
From: Piotr Trojanek <trojanek@adacore.com>
Date: Tue, 12 Oct 2021 17:42:05 +0200
Subject: [PATCH] [Ada] Prevent use of an uninitialized AST field with
 universal integer

gcc/ada/

	* exp_spark.adb (Expand_SPARK_N_Attribute_Reference): Guard
	against equality of an uninitialized RM_Size field.
---
 gcc/ada/exp_spark.adb | 1 +
 1 file changed, 1 insertion(+)

diff --git a/gcc/ada/exp_spark.adb b/gcc/ada/exp_spark.adb
index bbfee622969..bce745b2690 100644
--- a/gcc/ada/exp_spark.adb
+++ b/gcc/ada/exp_spark.adb
@@ -451,6 +451,7 @@ package body Exp_SPARK is
                Apply_Universal_Integer_Attribute_Checks (N);
 
                if Present (Typ)
+                 and then Known_RM_Size (Typ)
                  and then RM_Size (Typ) = RM_Size (Standard_Long_Long_Integer)
                then
                   --  ??? This should rather be a range check, but this would