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