[Ada] Preserve Do_Range_Check flags in SPARK mode

2018-10-09  Ed Schonberg  <schonberg@adacore.com>

gcc/ada/

	* checks.adb (Apply_Type_Conversion_Checks): Use GNATprove_Mode
	rather than SPARK_mode in order to preserve the Do_Range_Check
	flag for verification purposes.

From-SVN: r264961

gcc/ada/ChangeLog

 2018-10-09  Ed Schonberg  <schonberg@adacore.com>
 
+	* checks.adb (Apply_Type_Conversion_Checks): Use GNATprove_Mode
+	rather than SPARK_mode in order to preserve the Do_Range_Check
+	flag for verification purposes.
+
+2018-10-09  Ed Schonberg  <schonberg@adacore.com>
+
 	* exp_aggr.adb (Expand_Array_Aggregate): If it is not possible
 	to build in place an aggregate with component associations, set
 	the Warnings_Off flag on the generated temporary, to prevent

gcc/ada/checks.adb

@@ -3555,9 +3555,8 @@ package body Checks is
                   --  in SPARK_Mode, where the explicit constraint check will
                   --  not be generated.
 
-                  if SPARK_Mode = On
-                    or else (not Is_Fixed_Point_Type (Expr_Type)
-                              and then not Is_Fixed_Point_Type (Target_Type))
+                  if GNATprove_Mode
+                    or else not Is_Fixed_Point_Type (Expr_Type)
                   then
                      Apply_Scalar_Range_Check
                        (Expr, Target_Type, Fixed_Int => Conv_OK);