blob: 5013984095b11af58022cbc12e9473ace3a7db97 [file] [log] [blame]
! { dg-do run }
! PR109358, test that tabs during stream io are correct.
program tabs
implicit none
integer :: fd
character(64) :: line
open(newunit=fd, file="otabs.txt", form="formatted", access="stream")
write(fd, "(i4, t40, i4, t20, i5.5)") 1234, 5555, 67890
close(fd)
open(newunit=fd, file="otabs.txt", form="formatted")
read(fd,"(a)") line
close(fd, status='delete')
if (line .ne. "1234 67890 5555") stop 10
end program tabs