summaryrefslogtreecommitdiff
path: root/gcc/testsuite/gfortran.dg/ftell_3.f90
blob: 16875d812a80abf655cff709829d07c4e0671e60 (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
! { dg-do run }
! 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