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

Subversion Repositories openrisc

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

Line No.	Rev	Author	Line
1	694	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			`A(:,1) = 10`
7			`A(:,2) = 20`
8			`A(:,3) = 30`
9
10			`!WRITE(,) SUM(A(:,1:3),1)`
11			`!WRITE(,) MINLOC(SUM(A(:,1:3),1),1)`
12			`if (minloc(sum(a(:,1:3),1),1) .ne. 1) call abort()`
13			`if (maxloc(sum(a(:,1:3),1),1) .ne. 3) call abort()`
14
15			`END PROGRAM TST`