!
! { dg-do run }
!
! fortran/PR114024
! https://github.com/fujitsu/compiler-test-suite
! Modified from Fortran/0093/0093_0130.f90
!
program foo
   implicit none
   complex :: cmp(3)
   real, allocatable :: xx(:), yy(:), zz(:)
   cmp = (3., 6.78)
   allocate(xx, source = cmp%re)          ! This caused an ICE.
   allocate(yy, source = cmp(1:3)%re)     ! This caused an ICE.
   allocate(zz, source = (cmp%re))
   if (any(xx /= [3., 3., 3.])) stop 1
   if (any(yy /= [3., 3., 3.])) stop 2
   if (any(zz /= [3., 3., 3.])) stop 3
end program foo