gcc/testsuite/g77.f-torture/execute/980628-6.f

   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       character c
  10       double precision d(100)
  11       common /cmn/ c, d
  12
  13       if (d(80) .ne. 10.) call abort
  14
  15       end
  16
  17       block data init
  18       implicit none
  19
  20       character c
  21       double precision d(100)
  22       common /cmn/ c, d
  23
  24       data d(80)/10./
  25
  26       end