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) STOP 1 7 write (10,"(A)") "1234567" 8 call ftell (10, o) 9 if (o /= 8 .and. o /= 9) STOP 2 10 write (10,"(A)") "1234567" 11 call ftell (10, o2) 12 if (o2 /= 2 * o) STOP 3 13 close (10) 14 call ftell (10, o) 15 if (o /= -1) STOP 4 16 end 17