gcc/testsuite/gfortran.dg/entry_2.f90

   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.
   4 subroutine 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)
   9 entry bar()
  10 end subroutine