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

Subversion Repositories openrisc_me

[/] [openrisc/] [trunk/] [gnu-src/] [gcc-4.5.1/] [gcc/] [testsuite/] [gfortran.fortran-torture/] [execute/] [equiv_1.f90] - Blame information for rev 308

Line No.	Rev	Author	Line
1	303	jeremybenn	`program prog`
2			`common /block/ i`
3			`equivalence (a, b, c), (i, j, k ,l)`
4			`a = 1.0`
5			`b = 2.0`
6			`c = 3.0`
7			`i = 1`
8			`j = 2`
9			`k = 3`
10			`l = 4`
11
12			`if ((a .ne. 3.0) .or. (b .ne. 3.0) .or. (c .ne. 3.0)) call abort ()`
13			`if ((i .ne. 4) .or. (j .ne. 4) .or. (k .ne. 4) .or. (l .ne. 4)) &`
14			`call abort ()`
15			`end program`