gcc/testsuite/gfortran.dg/ftell_2.f90

   1 ! { dg-do run }
   2   integer(kind=8) o
   3   open (10, status="scratch")
   4   if (ftell(10) /= 0) call abort
   5   write (10,"(A)") "1234567"
   6   if (ftell(10) /= 8 .and. ftell(10) /= 9) call abort
   7   o = ftell(10)
   8   write (10,"(A)") "1234567"
   9   if (ftell(10) /= 2 * o) call abort
  10   close (10)
  11   if (ftell(10) /= -1) call abort
  12   end