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 13