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
,
4 * including when initial values are provided
(e
.g
. DATA
).
13 if (c
.ne
. '1') call abort
14 if (d
.ne
. 10.) call abort