1! { dg-do compile }
2! PR fortran/34402 - allocatable components shall not be
3! data-initialized in init expr
4
5  type t
6    real, allocatable :: x(:)
7  end type
8
9  ! The following is illegal!
10  type (t) :: bad = t ( (/ 1., 3., 5., 7., 9. /) )     ! { dg-error "Invalid initialization expression" }
11
12  ! This is ok
13  type (t) :: ok = t ( NULL() )
14end
15