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/] [maxlocval_3.f90] - Rev 316
Go to most recent revision | Compare with Previous | Blame | View Log
! { dg-do run }
integer :: a(3), h
integer, allocatable :: c(:)
logical :: l
logical :: l2(3)
h = -huge(h)
h = h - 1
allocate (c(3))
a(:) = 5
if (maxloc (a, dim = 1).ne.1) call abort
if (maxval (a, dim = 1).ne.5) call abort
a(2) = huge(h)
if (maxloc (a, dim = 1).ne.2) call abort
if (maxval (a, dim = 1).ne.huge(h)) call abort
a(:) = h
if (maxloc (a, dim = 1).ne.1) call abort
if (maxval (a, dim = 1).ne.h) call abort
a(3) = -huge(h)
if (maxloc (a, dim = 1).ne.3) call abort
if (maxval (a, dim = 1).ne.-huge(h)) call abort
c(:) = 5
if (maxloc (c, dim = 1).ne.1) call abort
if (maxval (c, dim = 1).ne.5) call abort
c(2) = huge(h)
if (maxloc (c, dim = 1).ne.2) call abort
if (maxval (c, dim = 1).ne.huge(h)) call abort
c(:) = h
if (maxloc (c, dim = 1).ne.1) call abort
if (maxval (c, dim = 1).ne.h) call abort
c(3) = -huge(h)
if (maxloc (c, dim = 1).ne.3) call abort
if (maxval (c, dim = 1).ne.-huge(h)) call abort
l = .false.
l2(:) = .false.
a(:) = 5
if (maxloc (a, dim = 1, mask = l).ne.0) call abort
if (maxval (a, dim = 1, mask = l).ne.h) call abort
if (maxloc (a, dim = 1, mask = l2).ne.0) call abort
if (maxval (a, dim = 1, mask = l2).ne.h) call abort
a(2) = huge(h)
if (maxloc (a, dim = 1, mask = l).ne.0) call abort
if (maxval (a, dim = 1, mask = l).ne.h) call abort
if (maxloc (a, dim = 1, mask = l2).ne.0) call abort
if (maxval (a, dim = 1, mask = l2).ne.h) call abort
a(:) = h
if (maxloc (a, dim = 1, mask = l).ne.0) call abort
if (maxval (a, dim = 1, mask = l).ne.h) call abort
if (maxloc (a, dim = 1, mask = l2).ne.0) call abort
if (maxval (a, dim = 1, mask = l2).ne.h) call abort
a(3) = -huge(h)
if (maxloc (a, dim = 1, mask = l).ne.0) call abort
if (maxval (a, dim = 1, mask = l).ne.h) call abort
if (maxloc (a, dim = 1, mask = l2).ne.0) call abort
if (maxval (a, dim = 1, mask = l2).ne.h) call abort
c(:) = 5
if (maxloc (c, dim = 1, mask = l).ne.0) call abort
if (maxval (c, dim = 1, mask = l).ne.h) call abort
if (maxloc (c, dim = 1, mask = l2).ne.0) call abort
if (maxval (c, dim = 1, mask = l2).ne.h) call abort
c(2) = huge(h)
if (maxloc (c, dim = 1, mask = l).ne.0) call abort
if (maxval (c, dim = 1, mask = l).ne.h) call abort
if (maxloc (c, dim = 1, mask = l2).ne.0) call abort
if (maxval (c, dim = 1, mask = l2).ne.h) call abort
c(:) = h
if (maxloc (c, dim = 1, mask = l).ne.0) call abort
if (maxval (c, dim = 1, mask = l).ne.h) call abort
if (maxloc (c, dim = 1, mask = l2).ne.0) call abort
if (maxval (c, dim = 1, mask = l2).ne.h) call abort
c(3) = -huge(h)
if (maxloc (c, dim = 1, mask = l).ne.0) call abort
if (maxval (c, dim = 1, mask = l).ne.h) call abort
if (maxloc (c, dim = 1, mask = l2).ne.0) call abort
if (maxval (c, dim = 1, mask = l2).ne.h) call abort
l = .true.
l2(:) = .true.
a(:) = 5
if (maxloc (a, dim = 1, mask = l).ne.1) call abort
if (maxval (a, dim = 1, mask = l).ne.5) call abort
if (maxloc (a, dim = 1, mask = l2).ne.1) call abort
if (maxval (a, dim = 1, mask = l2).ne.5) call abort
a(2) = huge(h)
if (maxloc (a, dim = 1, mask = l).ne.2) call abort
if (maxval (a, dim = 1, mask = l).ne.huge(h)) call abort
if (maxloc (a, dim = 1, mask = l2).ne.2) call abort
if (maxval (a, dim = 1, mask = l2).ne.huge(h)) call abort
a(:) = h
if (maxloc (a, dim = 1, mask = l).ne.1) call abort
if (maxval (a, dim = 1, mask = l).ne.h) call abort
if (maxloc (a, dim = 1, mask = l2).ne.1) call abort
if (maxval (a, dim = 1, mask = l2).ne.h) call abort
a(3) = -huge(h)
if (maxloc (a, dim = 1, mask = l).ne.3) call abort
if (maxval (a, dim = 1, mask = l).ne.-huge(h)) call abort
if (maxloc (a, dim = 1, mask = l2).ne.3) call abort
if (maxval (a, dim = 1, mask = l2).ne.-huge(h)) call abort
c(:) = 5
if (maxloc (c, dim = 1, mask = l).ne.1) call abort
if (maxval (c, dim = 1, mask = l).ne.5) call abort
if (maxloc (c, dim = 1, mask = l2).ne.1) call abort
if (maxval (c, dim = 1, mask = l2).ne.5) call abort
c(2) = huge(h)
if (maxloc (c, dim = 1, mask = l).ne.2) call abort
if (maxval (c, dim = 1, mask = l).ne.huge(h)) call abort
if (maxloc (c, dim = 1, mask = l2).ne.2) call abort
if (maxval (c, dim = 1, mask = l2).ne.huge(h)) call abort
c(:) = h
if (maxloc (c, dim = 1, mask = l).ne.1) call abort
if (maxval (c, dim = 1, mask = l).ne.h) call abort
if (maxloc (c, dim = 1, mask = l2).ne.1) call abort
if (maxval (c, dim = 1, mask = l2).ne.h) call abort
c(3) = -huge(h)
if (maxloc (c, dim = 1, mask = l).ne.3) call abort
if (maxval (c, dim = 1, mask = l).ne.-huge(h)) call abort
if (maxloc (c, dim = 1, mask = l2).ne.3) call abort
if (maxval (c, dim = 1, mask = l2).ne.-huge(h)) call abort
deallocate (c)
allocate (c(-2:-3))
if (maxloc (c, dim = 1).ne.0) call abort
if (maxval (c, dim = 1).ne.h) call abort
end
Go to most recent revision | Compare with Previous | Blame | View Log