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

Subversion Repositories openrisc

[/] [openrisc/] [tags/] [gnu-src/] [gcc-4.5.1/] [gcc-4.5.1-or32-1.0rc3/] [gcc/] [testsuite/] [gfortran.dg/] [unpack_init_expr.f03] - Blame information for rev 581

Line No.	Rev	Author	Line
1	302	jeremybenn	`! { dg-do "run" }`
2			`!`
3			`! Example from F2003, sec 13.7.125`
4			`!`
5			`INTEGER, PARAMETER :: m(3,3) = RESHAPE ([1,0,0,0,1,0,0,0,1], [3,3])`
6			`INTEGER, PARAMETER :: v(3) = [1,2,3]`
7			`LOGICAL, PARAMETER :: F = .FALSE., T = .TRUE.`
8			`LOGICAL, PARAMETER :: q(3,3) = RESHAPE ([F,T,F,T,F,F,F,F,T], [3,3])`
9
10			`INTEGER, PARAMETER :: r1(3,3) = UNPACK (V, MASK=Q, FIELD=M)`
11			`INTEGER, PARAMETER :: r2(3,3) = UNPACK (V, MASK=Q, FIELD=0)`
12
13			`IF (ANY (r1 /= RESHAPE ([1,1,0,2,1,0,0,0,3], [3,3]))) CALL ABORT()`
14			`IF (ANY (r2 /= RESHAPE ([0,1,0,2,0,0,0,0,3], [3,3]))) CALL ABORT()`
15			`END`