| ! { dg-do run } |
| ! PR43605 FTELL intrinsic returns incorrect position |
| ! Contributed by Janne Blomqvist, Manfred Schwarb |
| ! and Dominique d'Humieres. |
| program ftell_3 |
| integer :: i |
| character(len=99) :: buffer |
| open(10, form='formatted', status='scratch', position='rewind') |
| write(10, '(a)') '123456' |
| write(10, '(a)') '789' |
| write(10, '(a)') 'CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC' |
| write(10, '(a)') 'DDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDD' |
| rewind(10) |
| read(10, '(a)') buffer |
| call ftell(10, i) |
| if(i /= 7) then |
| call abort() |
| end if |
| read(10,'(a)') buffer |
| if (trim(buffer) /= "789") then |
| call abort() |
| end if |
| call ftell(10,i) |
| if (i /= 11) then |
| call abort() |
| end if |
| close(10) |
| end program ftell_3 |