[Bug libfortran/60706] FAIL: gfortran.dg/size_kind_2.f90 -O scan-tree-dump original "var2 = 42949673 00;"

["rguenth at gcc dot gnu.org" <gcc-bugzilla at gcc dot gnu dot org>]

http://gcc.gnu.org/bugzilla/show_bug.cgi?id=60706

--- Comment #4 from Richard Biener <rguenth at gcc dot gnu.org> ---
Bah.  Then we need to use the preprocessor to avoid the warning:

Index: gcc/tree-pretty-print.c
===================================================================
--- gcc/tree-pretty-print.c     (revision 209018)
+++ gcc/tree-pretty-print.c     (working copy)
@@ -3467,6 +3469,14 @@ pp_double_int (pretty_printer *pp, doubl
     pp_unsigned_wide_integer (pp, d.low);
   else
     {
+#if HOST_BITS_PER_DOUBLE_INT == HOST_BITS_PER_WIDEST_INT
+      pp_scalar (pp,
+                uns
+                ? HOST_WIDEST_INT_PRINT_UNSIGNED : HOST_WIDEST_INT_PRINT_DEC,
+                (HOST_WIDEST_INT)
+                (((unsigned HOST_WIDEST_INT) d.high << HOST_BITS_PER_WIDE_INT)
+                 | d.low));
+#else
       unsigned HOST_WIDE_INT low = d.low;
       HOST_WIDE_INT high = d.high;
       if (!uns && d.is_negative ())
@@ -3481,5 +3491,6 @@ pp_double_int (pretty_printer *pp, doubl
               HOST_WIDE_INT_PRINT_DOUBLE_HEX,
               (unsigned HOST_WIDE_INT) high, low);
       pp_string (pp, pp_buffer (pp)->digit_buffer);
+#endif
     }
 }