gcc/testsuite/gfortran.dg/maxloc_1.f90

   1 ! { dg-do run }
   2   integer :: a(3), n
   3   a(1) = -huge(n)
   4   a(2) = -huge(n)
   5   a(3) = -huge(n)
   6   a(1) = a(1) - 1
   7   a(2) = a(2) - 1
   8   a(3) = a(3) - 1
   9   n = maxloc (a, dim = 1)
  10   if (n .ne. 1) call abort
  11   a(2) = -huge(n)
  12   n = maxloc (a, dim = 1)
  13   if (n .ne. 2) call abort
  14 end