| ! { dg-do compile } | |
| ! { dg-options "-O2 -fdump-tree-dom2" } | |
| subroutine bar(n,m,p,s) | |
| implicit none | |
| integer :: n,m | |
| real,intent(inout) :: p(n),s(*) | |
| call foo(n,m,p,s) | |
| call foo(n,m,p,s) | |
| end subroutine bar | |
| subroutine foo(n,m,p,b) | |
| implicit none | |
| integer :: n,m,j | |
| real,intent(inout) :: p(n),b(*) | |
| !GCC$ ATTRIBUTES noinline :: foo | |
| do j=1,n | |
| b(m+j-1)=p(j) | |
| enddo | |
| m=m+n | |
| end subroutine foo | |
| ! { dg-final { scan-tree-dump-times "foo \\(" 4 "dom2"} } |