URL https://opencores.org/ocsvn/openrisc/openrisc/trunk

Subversion Repositories openrisc

[/] [openrisc/] [trunk/] [gnu-dev/] [or1k-gcc/] [gcc/] [testsuite/] [gfortran.dg/] [initialization_2.f90] - Blame information for rev 801

Line No.	Rev	Author	Line
1	694	jeremybenn	`! { dg-do run }`
2			`! Vector subscripts, ranks and shapes of initialization expressions (PRs 29393,`
3			`! 29630 and 29679)`
4			`program test`
5
6			`implicit none`
7			`integer :: i, j`
8			`integer, parameter :: a(4,4,4) = reshape([ (i,i=1,64) ], [4,4,4])`
9			`integer, parameter :: v(4) = [4, 1, 3, 2]`
10
11			`integer :: b1(3,3) = a(1:3, 2, 2:4)`
12			`integer :: b2(1,3) = a(2:2, 4, [1,4,3])`
13			`integer :: b2b(3) = a([1,4,3], 2, 4)`
14			`integer :: b3(4) = a(1, v, 3)`
15			`integer :: b4(3,3) = a(v([2,4,3]), 2, [2,3,4])`
16
17			`if (any(b1 /= reshape([21,22,23, 37,38,39, 53,54,55], [3,3]))) call abort()`
18			`if (any(b2 /= reshape([14, 62, 46], [1,3]))) call abort()`
19			`if (any(b2b /= [53, 56, 55])) call abort()`
20			`if (any(b3 /= [45, 33, 41, 37])) call abort()`
21			`if (any(b4 /= reshape([21,22,23, 37,38,39, 53,54,55], [3,3]))) call abort()`
22			`end program test`