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