Subversion Repositories scarts

! { dg-do compile }

! Arguments to procedures with multiple entry points may be absent, however

! they are not optional, unless explicitly maked as such.

subroutine foo(i, a, b)

  logical a(2, 2)

  logical b(1)

  ! Check we don't get an "DIM must not be optional" error

  a = any(b, i)

entry bar()

end subroutine