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
.
13 real r1
(5), r2
(5), r3
(5)
14 double precision d1
, d2
, d3
16 equivalence
(r1
(2), d1
)
17 equivalence
(r2
(2), d2
)
18 equivalence
(r3
(2), d3
)
36 call x
(r1
, d1
, i1
, r2
, d2
, i2
, r3
, d3
, i3
)
40 subroutine x
(r1
, d1
, i1
, r2
, d2
, i2
, r3
, d3
, i3
)
43 real r1
(5), r2
(5), r3
(5)
44 double precision d1
, d2
, d3
47 if (r1
(1) .ne
. 1.) call abort
48 if (d1
.ne
. 10.) call abort
49 if (r1
(4) .ne
. 1.) call abort
50 if (r1
(5) .ne
. 1.) call abort
51 if (i1
.ne
. 1) call abort
52 if (r2
(1) .ne
. 2.) call abort
53 if (d2
.ne
. 20.) call abort
54 if (r2
(4) .ne
. 2.) call abort
55 if (r2
(5) .ne
. 2.) call abort
56 if (i2
.ne
. 2) call abort
57 if (r3
(1) .ne
. 3.) call abort
58 if (d3
.ne
. 30.) call abort
59 if (r3
(4) .ne
. 3.) call abort
60 if (r3
(5) .ne
. 3.) call abort
61 if (i3
.ne
. 3) call abort