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

Subversion Repositories openrisc

[/] [openrisc/] [trunk/] [gnu-dev/] [or1k-gcc/] [gcc/] [testsuite/] [gfortran.dg/] [pr46297.f] - Blame information for rev 694

Line No.	Rev	Author	Line
1	694	jeremybenn	`! { dg-options "-Os -fno-asynchronous-unwind-tables" }`
2			`! { dg-do run }`
3
4			`real r1(5), r2(5), r3(5)`
5			`real s1(2), s2(2), s3(2)`
6			`double precision d1, d2, d3`
7			`equivalence (r3, s3(2))`
8			`equivalence (d3, r3(2))`
9			`s1(1) = 1.`
10			`s3(1) = 3.`
11			`r3(1) = 3.`
12			`d3 = 30.`
13			`i3 = 3`
14			`call x (s1, r1, d1, i1, s2, r2, d2, i2, s3, r3, d3, i3)`
15			`end`
16			`subroutine x (s1, r1, d1, i1, s2, r2, d2, i2, s3, r3, d3, i3)`
17			`real r1(5), r2(5), r3(5)`
18			`real s1(2), s2(2), s3(2)`
19			`double precision d1, d2, d3`
20			`if (s1(1) .ne. 1.) call abort`
21			`if (s3(1) .ne. 3.) call abort`
22			`if (r3(1) .ne. 3.) call abort`
23			`if (d3 .ne. 30.) call abort`
24			`if (i3 .ne. 3) call abort`
25			`end`