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

Subversion Repositories openrisc

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

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