1! { dg-do compile }
2
3function foo(a, b, c, n)
4  integer :: a(n), b(n), c(n), n, i, foo
5  foo = 0
6  do i = 1, n
7    if (a(i) .eq. b(i)) then
8      foo = 1
9    else if (a(i) .eq. c(i)) then
10      foo = 2
11    end if
12  end do
13end function foo
14