29 lines
757 B
Fortran
29 lines
757 B
Fortran
! { 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
|