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
26