[gcc.git] / gcc / testsuite / gfortran.dg / pr17143.f90

! { dg-do run }
! 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
          call abort
       endif 
       end
Commit	Line	Data
9d953276	1	! { dg-do run }
5352bda0 BD	2	! pr17143
	3	! does not print 2*63 correctly
	4	character*25 l
df8652dc	5	integer(kind=8) i
5352bda0 BD	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