gcc/testsuite/gfortran.dg/pr43475.f90

   1 ! PR middle-end/43475
   2 ! { dg-do compile }
   3 ! { dg-options "-O2" }
   4 subroutine 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))
  14 end subroutine ss