URL
https://opencores.org/ocsvn/openrisc/openrisc/trunk
Subversion Repositories openrisc
[/] [openrisc/] [trunk/] [gnu-dev/] [or1k-gcc/] [gcc/] [testsuite/] [gfortran.dg/] [maxloc_3.f90] - Rev 694
Compare with Previous | Blame | View Log
! { dg-do run }integer :: a(3), h, ia(1)integer, allocatable :: c(:)logical :: llogical :: l2(3)h = -huge(h)h = h - 1allocate (c(3))a(:) = 5ia = maxloc (a)if (ia(1).ne.1) call aborta(2) = huge(h)ia = maxloc (a)if (ia(1).ne.2) call aborta(:) = hia = maxloc (a)if (ia(1).ne.1) call aborta(3) = -huge(h)ia = maxloc (a)if (ia(1).ne.3) call abortc(:) = 5ia = maxloc (c)if (ia(1).ne.1) call abortc(2) = huge(h)ia = maxloc (c)if (ia(1).ne.2) call abortc(:) = hia = maxloc (c)if (ia(1).ne.1) call abortc(3) = -huge(h)ia = maxloc (c)if (ia(1).ne.3) call abortl = .false.l2(:) = .false.a(:) = 5ia = maxloc (a, mask = l)if (ia(1).ne.0) call abortia = maxloc (a, mask = l2)if (ia(1).ne.0) call aborta(2) = huge(h)ia = maxloc (a, mask = l)if (ia(1).ne.0) call abortia = maxloc (a, mask = l2)if (ia(1).ne.0) call aborta(:) = hia = maxloc (a, mask = l)if (ia(1).ne.0) call abortia = maxloc (a, mask = l2)if (ia(1).ne.0) call aborta(3) = -huge(h)ia = maxloc (a, mask = l)if (ia(1).ne.0) call abortia = maxloc (a, mask = l2)if (ia(1).ne.0) call abortc(:) = 5ia = maxloc (c, mask = l)if (ia(1).ne.0) call abortia = maxloc (c, mask = l2)if (ia(1).ne.0) call abortc(2) = huge(h)ia = maxloc (c, mask = l)if (ia(1).ne.0) call abortia = maxloc (c, mask = l2)if (ia(1).ne.0) call abortc(:) = hia = maxloc (c, mask = l)if (ia(1).ne.0) call abortia = maxloc (c, mask = l2)if (ia(1).ne.0) call abortc(3) = -huge(h)ia = maxloc (c, mask = l)if (ia(1).ne.0) call abortia = maxloc (c, mask = l2)if (ia(1).ne.0) call abortl = .true.l2(:) = .true.a(:) = 5ia = maxloc (a, mask = l)if (ia(1).ne.1) call abortia = maxloc (a, mask = l2)if (ia(1).ne.1) call aborta(2) = huge(h)ia = maxloc (a, mask = l)if (ia(1).ne.2) call abortia = maxloc (a, mask = l2)if (ia(1).ne.2) call aborta(:) = hia = maxloc (a, mask = l)if (ia(1).ne.1) call abortia = maxloc (a, mask = l2)if (ia(1).ne.1) call aborta(3) = -huge(h)ia = maxloc (a, mask = l)if (ia(1).ne.3) call abortia = maxloc (a, mask = l2)if (ia(1).ne.3) call abortc(:) = 5ia = maxloc (c, mask = l)if (ia(1).ne.1) call abortia = maxloc (c, mask = l2)if (ia(1).ne.1) call abortc(2) = huge(h)ia = maxloc (c, mask = l)if (ia(1).ne.2) call abortia = maxloc (c, mask = l2)if (ia(1).ne.2) call abortc(:) = hia = maxloc (c, mask = l)if (ia(1).ne.1) call abortia = maxloc (c, mask = l2)if (ia(1).ne.1) call abortc(3) = -huge(h)ia = maxloc (c, mask = l)if (ia(1).ne.3) call abortia = maxloc (c, mask = l2)if (ia(1).ne.3) call abortdeallocate (c)allocate (c(-2:-3))ia = maxloc (c)if (ia(1).ne.0) call abortend