| ! { 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 |
