https://gcc.gnu.org/bugzilla/show_bug.cgi?id=87968
--- Comment #2 from Thomas Koenig <tkoenig at gcc dot gnu.org> --- Simplified test case (only one array is needed): program main integer, parameter :: dp = selected_real_kind(15) real(kind=dp) :: v1(3) real(kind=dp), allocatable :: vv(:) v1 = [1._dp, 2._dp, 3._dp] vv = [v1] print *,vv end program main