summaryrefslogtreecommitdiff
path: root/gcc/testsuite/gfortran.dg/common_equivalence_1.f
blob: 2f15b93a4ae83d45bdcdbde30da10f8d0567bf12 (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
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