URL
https://opencores.org/ocsvn/openrisc_me/openrisc_me/trunk
Subversion Repositories openrisc_me
[/] [openrisc/] [trunk/] [gnu-src/] [gcc-4.5.1/] [gcc/] [testsuite/] [gfortran.fortran-torture/] [execute/] [data_2.f90] - Rev 308
Go to most recent revision | Compare with Previous | Blame | View Log
! 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
Go to most recent revision | Compare with Previous | Blame | View Log