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