| * g77 0.5.23 and previous had bugs involving too little space | |
| * allocated for EQUIVALENCE and COMMON areas needing initial | |
| * padding to meet alignment requirements of the system, | |
| * including when initial values are provided (e.g. DATA). | |
| program test | |
| implicit none | |
| real r | |
| double precision d | |
| common /cmn/ r, d | |
| if (r .ne. 1.) call abort | |
| if (d .ne. 10.) call abort | |
| end | |
| block data init | |
| implicit none | |
| real r | |
| double precision d | |
| common /cmn/ r, d | |
| data r/1./, d/10./ | |
| end |