gcc/testsuite/gfortran.fortran-torture/execute/equiv_1.f90

   1 program prog
   2   common /block/ i
   3   equivalence (a, b, c), (i, j, k ,l)
   4   a = 1.0
   5   b = 2.0
   6   c = 3.0
   7   i = 1
   8   j = 2
   9   k = 3
  10   l = 4
  11
  12   if ((a .ne. 3.0) .or. (b .ne. 3.0) .or. (c .ne. 3.0)) call abort ()
  13   if ((i .ne. 4) .or. (j .ne. 4) .or. (k .ne. 4) .or. (l .ne. 4)) &
  14     call abort ()
  15 end program