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.dg/] [minmaxloc_4.f90] - Blame information for rev 399

Line No.	Rev	Author	Line
1	302	jeremybenn	`! { dg-do run }`
2			`! Test to make sure that PR 33354 remains fixed and doesn't regress`
3			`PROGRAM TST`
4			`IMPLICIT NONE`
5			`REAL :: A(1,3)`
6			`REAL :: B(3,1)`
7			`A(:,1) = 10`
8			`A(:,2) = 20`
9			`A(:,3) = 30`
10
11			`!WRITE(,) SUM(A(:,1:3),1)`
12			`!WRITE(,) MINLOC(SUM(A(:,1:3),1),1)`
13			`if (minloc(sum(a(:,1:3),1),1) .ne. 1) call abort()`
14			`if (maxloc(sum(a(:,1:3),1),1) .ne. 3) call abort()`
15
16			`B(1,:) = 10`
17			`B(2,:) = 20`
18			`B(3,:) = 30`
19			`if (minloc(sum(b(1:3,:),2),2) .ne. 1) call abort()`
20			`if (maxloc(sum(b(1:3,:),2),2) .ne. 3) call abort()`
21			`END PROGRAM TST`