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).
5
6      program test
7      implicit none
8
9      real r
10      double precision d
11      common /cmn/ r, d
12
13      if (r .ne. 1.) call abort
14      if (d .ne. 10.) call abort
15
16      end
17
18      block data init
19      implicit none
20
21      real r
22      double precision d
23      common /cmn/ r, d
24
25      data r/1./, d/10./
26
27      end
28