1 * g77
0.5.23 and previous had bugs involving too little space
2 * allocated
for EQUIVALENCE and
COMMON areas needing initial
3 * padding
to meet alignment requirements of the system
.
12 real r1
(5), r2
(5), r3
(5)
13 double precision d1
, d2
, d3
15 equivalence
(r1
(2), d1
)
16 equivalence
(r2
(2), d2
)
17 equivalence
(r3
(2), d3
)
35 call x
(r1
, d1
, i1
, r2
, d2
, i2
, r3
, d3
, i3
)
39 subroutine x
(r1
, d1
, i1
, r2
, d2
, i2
, r3
, d3
, i3
)
42 real r1
(5), r2
(5), r3
(5)
43 double precision d1
, d2
, d3
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