[Bug fortran/103898] [12 Regression] ICE: gimplification failed

[pinskia at gcc dot gnu.org]

https://gcc.gnu.org/bugzilla/show_bug.cgi?id=103898

Andrew Pinski <pinskia at gcc dot gnu.org> changed:

           What    |Removed                     |Added
----------------------------------------------------------------------------
   Last reconfirmed|                            |2022-01-03
             Status|UNCONFIRMED                 |NEW
     Ever confirmed|0                           |1

--- Comment #2 from Andrew Pinski <pinskia at gcc dot gnu.org> ---
Reduced testcase:
Module g
    Integer, Parameter, Public :: i4b = Selected_int_kind(9)
contains
  function size_i_1(array, dim) result (mysize)
    integer(i4b), dimension(:), intent(in)   :: array
    integer(i4b), optional,     intent(in)   :: dim
    if (present(dim)) then
       mysize = size(array, dim=dim)
    endif
  end function size_i_1
end module