| ! PR libfortran/22170 | |
| ! { dg-do run { target fd_truncate } } | |
| integer i | |
| open (10,status='scratch') | |
| write (10,'(A,2/,A)') '12', '17' | |
| rewind (10) | |
| read (10,'(I2)') i | |
| if (i /= 12) call abort | |
| read (10,'(I2)') i | |
| if (i /= 0) call abort | |
| read (10,'(I2)') i | |
| if (i /= 17) call abort | |
| end |