! { 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 |