| ! { dg-do run } | |
| ! PR fortran/17077. | |
| ! Automatic arrays are allocated on the heap. When used as an actual argument | |
| ! we were passing the address of the pointer, not the pointer itself. | |
| program p | |
| implicit none | |
| integer:: n,m | |
| n = 3 | |
| call foo(n) | |
| contains | |
| subroutine foo(m) | |
| integer:: m,i | |
| integer:: z(m,m) | |
| z = 0 | |
| call foo1(m,z) | |
| ! Check it worked. | |
| if (any (z .ne. reshape ((/1, 2, 3, 4, 5, 6, 7, 8, 9/), (/3, 3/)))) & | |
| STOP 1 | |
| end subroutine foo | |
| subroutine foo1(n,x) | |
| integer:: n,i,j | |
| integer:: x(n,n) | |
| ! Assign values to x. | |
| do i=1,n | |
| do j=1,n | |
| x(j,i)=j+(i-1)*n | |
| enddo | |
| enddo | |
| end subroutine foo1 | |
| end program |