1! { dg-do compile }
2
3subroutine foo(tmp1, tmp2, tmp3)
4  integer, parameter :: n = 100
5  real :: tmp1(n,2), tmp2(n), tmp3(n)
6  integer :: i, c1, c2, c3
7  logical :: cond
8  common c1, c2, c3
9
10  c2 = c3
11  cond = c1 .eq. 1 .and. c3 .eq. 1
12  do i = 1,100
13     if (cond) tmp2(i) = tmp1(i,1) / tmp1(i,2)
14  end do
15  do i = 1,100
16     if (cond) tmp3(i) = tmp2(i)
17  end do
18end subroutine foo
19