22 lines
445 B
Fortran
22 lines
445 B
Fortran
c { dg-do run }
|
|
c This program tests the fix for PR22304.
|
|
c
|
|
c provided by Paul Thomas - pault@gcc.gnu.org
|
|
c
|
|
integer a(2), b, c
|
|
COMMON /foo/ a
|
|
EQUIVALENCE (a(1),b), (c, a(2))
|
|
a(1) = 101
|
|
a(2) = 102
|
|
call bar ()
|
|
END
|
|
|
|
subroutine bar ()
|
|
integer a(2), b, c, d
|
|
COMMON /foo/ a
|
|
EQUIVALENCE (a(1),b), (c, a(2))
|
|
if (b.ne.101) call abort ()
|
|
if (c.ne.102) call abort ()
|
|
END
|
|
|