! Check more array variants of the data statementprogram data_2
implicit nonetype t
integer i
end type t
integer,dimension(3) :: a
type(t),dimension(3) :: b
integer,dimension(2,2) :: c
dataa(:), b%i /1,2,3,4,5,6/datac(1, :),c(2, :) /7,8,9,10/if(any(a .ne. (/1,2,3/)))callabort()if(any(b%i .ne. (/4,5,6/)))callabort()if((any(c(1, :) .ne. (/7,8/))) &.or. (any(c(2,:) .ne. (/9,10/))))callabort()end program