1 2 3 4 5 6 7 8 9 10
! { dg-do compile } ! { dg-options "-g" } program p type t integer :: a integer :: b(0) end type type(t), parameter :: z = t(1, [2]) print *, z end