gcc-4.9/gcc/testsuite/gfortran.fortran-torture/execute/data_2.f90


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17

! 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