OSDN Git Service

PR libfortran/43605 Fix FTELL for formatted files
[pf3gnuchains/gcc-fork.git] / gcc / testsuite / gfortran.dg / ftell_3.f90
1 ! { dg-do run }
2 ! PR43605 FTELL intrinsic returns incorrect position
3 ! Contributed by Janne Blomqvist and Manfred Schwarb
4 program ftell_3
5   integer :: i
6   character(len=99) :: buffer
7   open(10, form='formatted', status='scratch', position='rewind')
8   write(10, '(a)') '123456'
9   write(10, '(a)') '789'
10   write(10, '(a)') 'CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC'
11   write(10, '(a)') 'DDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDD'
12   rewind(10)
13   read(10, '(a)') buffer
14   call ftell(10, i)
15   if(i /= 7) then
16      call abort()
17   end if
18   close(10)
19 end program ftell_3