1! { dg-do run }
2! The equivalence was causing us to miss out c when laying out the common
3! block.
4program common_2
5  common /block/ a, b, c, d
6  integer a, b, c, d, n
7  dimension n(4)
8  equivalence (a, n(1))
9  equivalence (c, n(3))
10  a = 1
11  b = 2
12  c = 3
13  d = 4
14  if (any (n .ne. (/1, 2, 3, 4/))) call abort
15end program
16