gcc/testsuite/gfortran.dg/pr17143.f90

   1 ! { dg-do run }
   2 ! pr17143
   3 ! does not print 2*63 correctly
   4        character*25 l
   5        integer(kind=8) i
   6        data i /1/
   7        do j = 1,63
   8           i = i * 2
   9        end do
  10        write(l,*)i
  11        if (l.ne.' -9223372036854775808') then
  12 !                ^
  13 !         the space is required before a number
  14           call abort
  15        endif
  16        end
  17