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

Subversion Repositories openrisc

[/] [openrisc/] [trunk/] [gnu-old/] [gcc-4.2.2/] [gcc/] [testsuite/] [gfortran.dg/] [g77/] [980628-7.f] - Blame information for rev 868

Line No.	Rev	Author	Line
1	149	jeremybenn	`c { dg-do run }`
2			`* g77 0.5.23 and previous had bugs involving too little space`
3			`* allocated for EQUIVALENCE and COMMON areas needing initial`
4			`* padding to meet alignment requirements of the system.`
5
6			`call subr`
7			`end`
8
9			`subroutine subr`
10			`implicit none`
11
12			`real r1(5), r2(5), r3(5)`
13			`double precision d1, d2, d3`
14			`integer i1, i2, i3`
15			`equivalence (d1, r1(2))`
16			`equivalence (d2, r2(2))`
17			`equivalence (d3, r3(2))`
18
19			`r1(1) = 1.`
20			`d1 = 10.`
21			`r1(4) = 1.`
22			`r1(5) = 1.`
23			`i1 = 1`
24			`r2(1) = 2.`
25			`d2 = 20.`
26			`r2(4) = 2.`
27			`r2(5) = 2.`
28			`i2 = 2`
29			`r3(1) = 3.`
30			`d3 = 30.`
31			`r3(4) = 3.`
32			`r3(5) = 3.`
33			`i3 = 3`
34
35			`call x (r1, d1, i1, r2, d2, i2, r3, d3, i3)`
36
37			`end`
38
39			`subroutine x (r1, d1, i1, r2, d2, i2, r3, d3, i3)`
40			`implicit none`
41
42			`real r1(5), r2(5), r3(5)`
43			`double precision d1, d2, d3`
44			`integer i1, i2, i3`
45
46			`if (r1(1) .ne. 1.) call abort`
47			`if (d1 .ne. 10.) call abort`
48			`if (r1(4) .ne. 1.) call abort`
49			`if (r1(5) .ne. 1.) call abort`
50			`if (i1 .ne. 1) call abort`
51			`if (r2(1) .ne. 2.) call abort`
52			`if (d2 .ne. 20.) call abort`
53			`if (r2(4) .ne. 2.) call abort`
54			`if (r2(5) .ne. 2.) call abort`
55			`if (i2 .ne. 2) call abort`
56			`if (r3(1) .ne. 3.) call abort`
57			`if (d3 .ne. 30.) call abort`
58			`if (r3(4) .ne. 3.) call abort`
59			`if (r3(5) .ne. 3.) call abort`
60			`if (i3 .ne. 3) call abort`
61
62			`end`
63