gcc/testsuite/gfortran.dg/pr103898.f90

   1 ! { dg-do compile }
   2
   3 ! This test used to ICE during gimplification (PR103898).
   4
   5 Module g
   6 contains
   7   function mysize(array, dim)
   8     integer :: mysize
   9     integer, dimension(:), intent(in)   :: array
  10     integer, optional,     intent(in)   :: dim
  11     if (present(dim)) then
  12        mysize = size(array, dim=dim)
  13     endif
  14   end function mysize
  15 end module