URL https://opencores.org/ocsvn/openrisc/openrisc/trunk

Subversion Repositories openrisc

[/] [openrisc/] [trunk/] [gnu-dev/] [or1k-gcc/] [gcc/] [testsuite/] [gfortran.dg/] [ftell_1.f90] - Blame information for rev 708

Line No.	Rev	Author	Line
1	694	jeremybenn	`! { 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`