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
.
11 real r1
(5), r2
(5), r3
(5)
12 double precision d1
, d2
, d3
14 equivalence
(d1
, r1
(2))
15 equivalence
(d2
, r2
(2))
16 equivalence
(d3
, r3
(2))
34 call x
(r1
, d1
, i1
, r2
, d2
, i2
, r3
, d3
, i3
)
38 subroutine x
(r1
, d1
, i1
, r2
, d2
, i2
, r3
, d3
, i3
)
41 real r1
(5), r2
(5), r3
(5)
42 double precision d1
, d2
, d3
45 if (r1
(1) .ne
. 1.) call abort
46 if (d1
.ne
. 10.) call abort
47 if (r1
(4) .ne
. 1.) call abort
48 if (r1
(5) .ne
. 1.) call abort
49 if (i1
.ne
. 1) call abort
50 if (r2
(1) .ne
. 2.) call abort
51 if (d2
.ne
. 20.) call abort
52 if (r2
(4) .ne
. 2.) call abort
53 if (r2
(5) .ne
. 2.) call abort
54 if (i2
.ne
. 2) call abort
55 if (r3
(1) .ne
. 3.) call abort
56 if (d3
.ne
. 30.) call abort
57 if (r3
(4) .ne
. 3.) call abort
58 if (r3
(5) .ne
. 3.) call abort
59 if (i3
.ne
. 3) call abort