gcc/testsuite/g77.f-torture/execute/980628-4.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       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