1c { dg-do run }
2c This program tests the fix for PR22304.
3c
4c provided by Paul Thomas - pault@gcc.gnu.org
5c
6      integer a(2), b, c
7      COMMON /foo/ a
8      EQUIVALENCE (a(1),b), (c, a(2))
9      a(1) = 101
10      a(2) = 102
11      call bar ()
12      END
13
14      subroutine bar ()
15      integer a(2), b, c, d
16      COMMON /foo/ a
17      EQUIVALENCE (a(1),b), (c, a(2))
18      if (b.ne.101) STOP 1
19      if (c.ne.102) STOP 2
20      END
21
22