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