blob: 242835be8d09bc1fa251e86bedb6a8e71946a987 [file] [log] [blame]
! { dg-do 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