URL
https://opencores.org/ocsvn/openrisc/openrisc/trunk
Subversion Repositories openrisc
[/] [openrisc/] [trunk/] [gnu-dev/] [or1k-gcc/] [gcc/] [testsuite/] [gfortran.dg/] [maxloc_1.f90] - Rev 694
Compare with Previous | Blame | View Log
! { dg-do run }integer :: a(3), na(1) = -huge(n)a(2) = -huge(n)a(3) = -huge(n)a(1) = a(1) - 1a(2) = a(2) - 1a(3) = a(3) - 1n = maxloc (a, dim = 1)if (n .ne. 1) call aborta(2) = -huge(n)n = maxloc (a, dim = 1)if (n .ne. 2) call abortend