1! { dg-do run { target fd_truncate } } 2! PR 26499 : Positioning of EOF after backspaces and write. 3! This test verifies that the last write truncates the file. 4! Submitted by Jerry DeLisle <jvdelisle@verizon.net>. 5 program test 6 integer at,eof 7 dimension idata(5) 8 idata = -42 9 open(unit=11,form='unformatted') 10 write(11)idata 11 write(11)idata 12 write(11)idata 13 backspace(11) 14 backspace(11) 15 write(11)idata 16 close(11, status="keep") 17 open(unit=11,form='unformatted') 18 rewind(11) 19 read(11)idata 20 read(11)idata 21 read(11, end=250)idata 22 call abort() 23 250 continue 24 close(11, status="delete") 25 end 26 27