gcc/testsuite/gfortran.dg/ftell_1.f90

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