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