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