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