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

diff --git a/gcc/ada/exp_spark.adb b/gcc/ada/exp_spark.adb
index bbfee6229690a3562521ee9f0fadd087b0091906..bce745b2690f9c598e34d4471ec735bf05f07e1b 100644 (file)
--- 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