! { 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 |