gcc/testsuite/gfortran.dg/common_equivalence_1.f

   1 c { dg-do run }
   2 c This program tests the fix for PR22304.
   3 c
   4 c provided by Paul Thomas - pault@gcc.gnu.org
   5 c
   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) call abort ()
  19       if (c.ne.102) call abort ()
  20       END
  21