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 character c1
(11), c2
(11), c3
(11)
15 equivalence
(r1
, c1
(2))
16 equivalence
(r2
, c2
(2))
17 equivalence
(r3
, c3
(2))
32 call x
(c1
, r1
, c2
, r2
, c3
, r3
, c4
, c5
, c6
)
36 subroutine x
(c1
, r1
, c2
, r2
, c3
, r3
, c4
, c5
, c6
)
39 character c1
(11), c2
(11), c3
(11)
43 if (c1
(1) .ne
. '1') call abort
44 if (r1
.ne
. 1.) call abort
45 if (c1
(11) .ne
. '1') call abort
46 if (c4
.ne
. '4') call abort
47 if (c2
(1) .ne
. '2') call abort
48 if (r2
.ne
. 2.) call abort
49 if (c2
(11) .ne
. '2') call abort
50 if (c5
.ne
. '5') call abort
51 if (c3
(1) .ne
. '3') call abort
52 if (r3
.ne
. 3.) call abort
53 if (c3
(11) .ne
. '3') call abort
54 if (c6
.ne
. '6') call abort