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