! { dg-do run } | |
! The equivalence was causing us to miss out c when laying out the common | |
! block. | |
program common_2 | |
common /block/ a, b, c, d | |
integer a, b, c, d, n | |
dimension n(4) | |
equivalence (a, n(1)) | |
equivalence (c, n(3)) | |
a = 1 | |
b = 2 | |
c = 3 | |
d = 4 | |
if (any (n .ne. (/1, 2, 3, 4/))) STOP 1 | |
end program |