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

Subversion Repositories scarts

[/] [scarts/] [trunk/] [toolchain/] [scarts-gcc/] [gcc-4.1.1/] [gcc/] [testsuite/] [gfortran.fortran-torture/] [execute/] [equiv_1.f90] - Blame information for rev 12

Line No.	Rev	Author	Line
1	12	jlechner	`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`