Subversion Repositories openrisc_2011-10-31

! 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