17 lines
352 B
Fortran
17 lines
352 B
Fortran
! { dg-do run }
|
|
integer(kind=8) o, o2
|
|
|
|
open (10, status="scratch")
|
|
call ftell (10, o)
|
|
if (o /= 0) call abort
|
|
write (10,"(A)") "1234567"
|
|
call ftell (10, o)
|
|
if (o /= 8 .and. o /= 9) call abort
|
|
write (10,"(A)") "1234567"
|
|
call ftell (10, o2)
|
|
if (o2 /= 2 * o) call abort
|
|
close (10)
|
|
call ftell (10, o)
|
|
if (o /= -1) call abort
|
|
end
|