1! { dg-do compile }
2! Arguments to procedures with multiple entry points may be absent, however
3! they are not optional, unless explicitly maked as such.
4subroutine foo(i, a, b)
5  logical a(2, 2)
6  logical b(1)
7  ! Check we don't get an "DIM must not be optional" error
8  a = any(b, i)
9entry bar()
10end subroutine
11