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