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