! { dg-do run } | |
! { dg-options "-std=legacy" } | |
! | |
! pr17143 | |
! does not print 2*63 correctly | |
character*25 l | |
integer(kind=8) i | |
data i /1/ | |
do j = 1,63 | |
i = i * 2 | |
end do | |
write(l,*)i | |
if (l.ne.' -9223372036854775808') then | |
! ^ | |
! the space is required before a number | |
STOP 1 | |
endif | |
end | |