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

Reply via email to