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
).
10 double precision d
(100)
13 if (d
(80) .ne
. 10.) call abort
21 double precision d
(100)