! { dg-do compile }

! This test used to ICE during gimplification (PR103898).

Module g
contains
  function mysize(array, dim)
    integer :: mysize
    integer, dimension(:), intent(in)   :: array
    integer, optional,     intent(in)   :: dim
    if (present(dim)) then
       mysize = size(array, dim=dim)
    endif
  end function mysize
end module