! { dg-do compile }

subroutine foo(tmp1, tmp2, tmp3)
  integer, parameter :: n = 100
  real :: tmp1(n,2), tmp2(n), tmp3(n)
  integer :: i, c1, c2, c3
  logical :: cond
  common c1, c2, c3

  c2 = c3
  cond = c1 .eq. 1 .and. c3 .eq. 1
  do i = 1,100
     if (cond) tmp2(i) = tmp1(i,1) / tmp1(i,2)
  end do
  do i = 1,100
     if (cond) tmp3(i) = tmp2(i)
  end do
end subroutine foo