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