1! { dg-do compile } 2! PR fortran/59910 3! 4program main 5 implicit none 6 type bar 7 integer :: limit(1) 8 end type 9 type (bar) :: testsuite 10 data testsuite / bar(reshape(source=[10],shape=[1])) / 11end 12