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