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

Subversion Repositories openrisc

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

Line No.	Rev	Author	Line
1	694	jeremybenn	`! PR fortran/49103`
2			`! { dg-do run }`
3			`integer :: a(2), b(2), i, j`
4			`open (10, status='scratch')`
5			`do j = 1, 2`
6			`a = (/ 0, 0 /)`
7			`b = (/ 1, 1 /)`
8			`do i = 1, 2`
9			`write (10, *) a`
10			`write (10, *) b`
11			`end do`
12			`end do`
13			`rewind (10)`
14			`do i = 0, 7`
15			`read (10, *) a`
16			`if (any (a .ne. mod (i, 2))) call abort`
17			`end do`
18			`close (10)`
19			`end`