summaryrefslogtreecommitdiff
path: root/gcc/testsuite/gfortran.dg/maxloc_1.f90
blob: 41115eda9819a7099fc0a95354c993f7e8f1f5f2 (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
! { dg-do run }
  integer :: a(3), n
  a(1) = -huge(n)
  a(2) = -huge(n)
  a(3) = -huge(n)
  a(1) = a(1) - 1
  a(2) = a(2) - 1
  a(3) = a(3) - 1
  n = maxloc (a, dim = 1)
  if (n .ne. 1) call abort
  a(2) = -huge(n)
  n = maxloc (a, dim = 1)
  if (n .ne. 2) call abort
end