Fix compilation failure with C++98 compilers

[official-gcc.git] / gcc / testsuite / gfortran.dg / integer_plus.f90

! { dg-run run )
! PR83560 list-directed formatting of INTEGER is missing plus on output
! when output open with SIGN='PLUS'
character(64) :: astring
i=789
open(unit=10, status='scratch', sign='plus')
write(10,*) i
rewind(10)
read(10,*) astring
close (10)
if (astring.ne.'+789') STOP 1
end