| c { dg-do run } |
| * g77 0.5.23 and previous had bugs involving too little space |
| * allocated for EQUIVALENCE and COMMON areas needing initial |
| * padding to meet alignment requirements of the system. |
| |
| call subr |
| end |
| |
| subroutine subr |
| implicit none |
| save |
| |
| real r1(5), r2(5), r3(5) |
| double precision d1, d2, d3 |
| integer i1, i2, i3 |
| equivalence (d1, r1(2)) |
| equivalence (d2, r2(2)) |
| equivalence (d3, r3(2)) |
| |
| r1(1) = 1. |
| d1 = 10. |
| r1(4) = 1. |
| r1(5) = 1. |
| i1 = 1 |
| r2(1) = 2. |
| d2 = 20. |
| r2(4) = 2. |
| r2(5) = 2. |
| i2 = 2 |
| r3(1) = 3. |
| d3 = 30. |
| r3(4) = 3. |
| r3(5) = 3. |
| i3 = 3 |
| |
| call x (r1, d1, i1, r2, d2, i2, r3, d3, i3) |
| |
| end |
| |
| subroutine x (r1, d1, i1, r2, d2, i2, r3, d3, i3) |
| implicit none |
| |
| real r1(5), r2(5), r3(5) |
| double precision d1, d2, d3 |
| integer i1, i2, i3 |
| |
| if (r1(1) .ne. 1.) STOP 1 |
| if (d1 .ne. 10.) STOP 2 |
| if (r1(4) .ne. 1.) STOP 3 |
| if (r1(5) .ne. 1.) STOP 4 |
| if (i1 .ne. 1) STOP 5 |
| if (r2(1) .ne. 2.) STOP 6 |
| if (d2 .ne. 20.) STOP 7 |
| if (r2(4) .ne. 2.) STOP 8 |
| if (r2(5) .ne. 2.) STOP 9 |
| if (i2 .ne. 2) STOP 10 |
| if (r3(1) .ne. 3.) STOP 11 |
| if (d3 .ne. 30.) STOP 12 |
| if (r3(4) .ne. 3.) STOP 13 |
| if (r3(5) .ne. 3.) STOP 14 |
| if (i3 .ne. 3) STOP 15 |
| |
| end |
| |
