Subversion Repositories openrisc_me

! { 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