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)