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