gcc/testsuite/gfortran.dg/pr46297.f

   1 ! { dg-options "-Os -fno-asynchronous-unwind-tables" }
   2 ! { dg-do run }
   3
   4       real r1(5), r2(5), r3(5)
   5       real s1(2), s2(2), s3(2)
   6       double precision d1, d2, d3
   7       equivalence (r3, s3(2))
   8       equivalence (d3, r3(2))
   9       s1(1) = 1.
  10       s3(1) = 3.
  11       r3(1) = 3.
  12       d3 = 30.
  13       i3 = 3
  14       call x (s1, r1, d1, i1, s2, r2, d2, i2, s3, r3, d3, i3)
  15       end
  16       subroutine x (s1, r1, d1, i1, s2, r2, d2, i2, s3, r3, d3, i3)
  17       real r1(5), r2(5), r3(5)
  18       real s1(2), s2(2), s3(2)
  19       double precision d1, d2, d3
  20       if (s1(1) .ne. 1.) STOP 1
  21       if (s3(1) .ne. 3.) STOP 2
  22       if (r3(1) .ne. 3.) STOP 3
  23       if (d3 .ne. 30.) STOP 4
  24       if (i3 .ne. 3) STOP 5
  25       end