ada: Fix spurious check on 'Put_Image for an array of characters

gcc/ada/ChangeLog:

	* exp_attr.adb (Rewrite_Attribute_Proc_Call)<Attribute_Put_Image>:
	Fix call to Analyze.

diff --git a/gcc/ada/exp_attr.adb b/gcc/ada/exp_attr.adb
index 41a7703e52379231ce00db2b26e5a085e682da8b..086ef91928e01fb34ad49cfce2d2e177b17b972a 100644 (file)
--- a/gcc/ada/exp_attr.adb
+++ b/gcc/ada/exp_attr.adb
@@ -6304,7 +6304,7 @@ package body Exp_Attr is
                                     /= RTU_Entity (Interfaces_C))
             then
                Rewrite (N, Build_String_Put_Image_Call (N));
-               Analyze (N);
+               Analyze (N, Suppress => All_Checks);
                return;
 
             elsif Is_Array_Type (U_Type) then