gcc/testsuite/gfortran.dg/pr17143.f90

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