! { dg-do compile } ! PR 80118 - this used to ICE ! Original test case by Marco Restelli module m implicit none integer, parameter :: not_empty(1) = 0 integer, parameter :: empty1(0) = (/integer :: /) integer, parameter :: empty2(0) = 0 contains subroutine sub(v) integer, allocatable, intent(out) :: v(:) v = 2*empty2 ! internal compiler error end subroutine sub end module m