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