| ! { dg-do run { target fd_truncate } } |
| ! PR 26499 : Positioning of EOF after write and rewind. |
| ! Test case from Dale Ranta in PR. |
| ! Submitted by Jerry DeLisle <jvdelisle@verizon.net>. |
| program test |
| dimension idata(100) |
| idata = -42 |
| open(unit=11,form='unformatted') |
| write(11)idata |
| write(11)idata |
| read(11,end= 1000 )idata |
| STOP 1 |
| 1000 continue |
| rewind 11 |
| write(11)idata |
| close(11,status='keep') |
| open(unit=11,form='unformatted') |
| rewind 11 |
| read(11)idata |
| read(11, end=250)idata |
| STOP 2 |
| 250 continue |
| close(11,status='delete') |
| end |