1! Check more array variants of the data statement
2program data_2
3  implicit none
4  type t
5    integer i
6  end type t
7  integer, dimension(3) :: a
8  type (t), dimension(3) :: b
9  integer, dimension(2,2) :: c
10  data a(:), b%i /1, 2, 3, 4, 5, 6/
11  data c(1, :), c(2, :) /7, 8, 9, 10/
12
13  if (any (a .ne. (/1, 2, 3/))) STOP 1
14  if (any (b%i .ne. (/4, 5, 6/))) STOP 2
15  if ((any (c(1, :) .ne. (/7, 8/))) &
16      .or. (any (c(2,:) .ne. (/9, 10/)))) STOP 3
17end program
18