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

Subversion Repositories openrisc

[/] [openrisc/] [trunk/] [gnu-dev/] [or1k-gcc/] [gcc/] [testsuite/] [gfortran.dg/] [g77/] [980628-10.f] - Blame information for rev 708

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