1! PR 18525
2! we used to incorrectly refer to n from a when resolving the call to
3! c from b
4! { dg-do run }
5subroutine a(n)
6call b(n+1)
7contains
8  subroutine b(n)
9    call c(n)
10  end subroutine b
11
12  subroutine c(m)
13    if (m/=1) call abort
14  end subroutine c
15end subroutine a
16
17call a(0)
18end
19