1! { dg-do run } 2! 3! PR fortran/27997 4! 5! Array constructor with typespec, check for regression 6! 7program test 8 implicit none 9 type :: real_info 10 integer :: kind 11 end type real_info 12 type (real_info) :: real_infos(1) = (/ real_info (4) /) 13end program test 14