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.) call abort
  21       if (s3(1) .ne. 3.) call abort
  22       if (r3(1) .ne. 3.) call abort
  23       if (d3 .ne. 30.) call abort
  24       if (i3 .ne. 3) call abort
  25       end