16 lines
353 B
Fortran
16 lines
353 B
Fortran
! { 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
|