1! PR middle-end/43475
2! { dg-do compile }
3! { dg-options "-O2" }
4subroutine ss(w)
5  implicit none
6  integer :: w(:)
7  integer :: b,c,d
8  b = w(8)
9  c = 5
10  d = 3
11  call s1(c)
12  call s2(b+c)
13  call s3(w(b))
14end subroutine ss
15