Subversion Repositories openrisc

! { dg-do run { target fd_truncate } }

! PR43605 FTELL intrinsic returns incorrect position

! Contributed by Janne Blomqvist, Manfred Schwarb

! and Dominique d'Humieres.

program ftell_3

  integer :: i, j

  character(1) :: ch

  character(len=99) :: buffer

  open(10, form='formatted', 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)

! Expected: On '\n' systems: 7, on \r\n systems: 8

  if(i /= 7 .and. i /= 8) then

    call abort

  end if

  read(10,'(a)') buffer

  if (trim(buffer) /= "789") then

     call abort()

  end if

  call ftell(10,j)

  close(10)

  open(10, access="stream")

! Expected: On '\n' systems: 11, on \r\n systems: 13

  if (i == 7) then

    read(10, pos=7) ch

    if (ch /= char(10)) call abort

    if (j /= 11) call abort

  end if

  if (i == 8) then

    read(10, pos=7) ch

    if (ch /= char(13)) call abort

    read(10) ch

    if (ch /= char(10)) call abort

    if (j /= 13) call abort

  end if

  close(10, status="delete")

end program ftell_3