2 c { dg-options "-std=gnu" }
3 * g77
0.5.23 and previous had bugs involving too little space
4 * allocated
for EQUIVALENCE and
COMMON areas needing initial
5 * padding
to meet alignment requirements of the system
.
13 character c1
(11), c2
(11), c3
(11)
16 equivalence
(r1
, c1
(2))
17 equivalence
(r2
, c2
(2))
18 equivalence
(r3
, c3
(2))
33 call x
(c1
, r1
, c2
, r2
, c3
, r3
, c4
, c5
, c6
)
37 subroutine x
(c1
, r1
, c2
, r2
, c3
, r3
, c4
, c5
, c6
)
40 character c1
(11), c2
(11), c3
(11)
44 if (c1
(1) .ne
. '1') call abort
45 if (r1
.ne
. 1.) call abort
46 if (c1
(11) .ne
. '1') call abort
47 if (c4
.ne
. '4') call abort
48 if (c2
(1) .ne
. '2') call abort
49 if (r2
.ne
. 2.) call abort
50 if (c2
(11) .ne
. '2') call abort
51 if (c5
.ne
. '5') call abort
52 if (c3
(1) .ne
. '3') call abort
53 if (r3
.ne
. 3.) call abort
54 if (c3
(11) .ne
. '3') call abort
55 if (c6
.ne
. '6') call abort