11 lines
313 B
Fortran
11 lines
313 B
Fortran
! { 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
|