URL
https://opencores.org/ocsvn/openrisc_me/openrisc_me/trunk
Go to most recent revision |
Only display areas with differences |
Details |
Blame |
View Log
Rev 149 |
Rev 154 |
! { dg-do run }
|
! { dg-do run }
|
integer(kind=8) o, o2
|
integer(kind=8) o, o2
|
|
|
open (10, status="scratch")
|
open (10, status="scratch")
|
call ftell (10, o)
|
call ftell (10, o)
|
if (o /= 0) call abort
|
if (o /= 0) call abort
|
write (10,"(A)") "1234567"
|
write (10,"(A)") "1234567"
|
call ftell (10, o)
|
call ftell (10, o)
|
if (o /= 8 .and. o /= 9) call abort
|
if (o /= 8 .and. o /= 9) call abort
|
write (10,"(A)") "1234567"
|
write (10,"(A)") "1234567"
|
call ftell (10, o2)
|
call ftell (10, o2)
|
if (o2 /= 2 * o) call abort
|
if (o2 /= 2 * o) call abort
|
close (10)
|
close (10)
|
call ftell (10, o)
|
call ftell (10, o)
|
if (o /= -1) call abort
|
if (o /= -1) call abort
|
end
|
end
|
|
|
© copyright 1999-2024
OpenCores.org, equivalent to Oliscience, all rights reserved. OpenCores®, registered trademark.