gcc/testsuite/gfortran.dg/findloc_8.f90

   1 ! PR libfortran/95390
   2 ! { dg-do run { target fortran_real_10 } }
   3
   4   complex(kind=10) :: a(6), b, d(2,2)
   5   logical :: m(6), n, o(2,2)
   6   integer :: c(1), e(2)
   7   a = (/ 1., 2., 17., 2., 2., 6. /)
   8   b = 17.
   9   c = findloc (a, b)
  10   if (c(1) /= 3) stop 1
  11   m = (/ .true., .false., .true., .true., .true., .true. /)
  12   n = .true.
  13   b = 2.
  14   c = findloc (a, b, m)
  15   if (c(1) /= 4) stop 2
  16   c = findloc (a, b, n)
  17   if (c(1) /= 2) stop 3
  18   d = reshape((/ 1., 2., 2., 3. /), (/ 2, 2 /))
  19   e = findloc (d, b, 1)
  20   if (e(1) /= 2 .or. e(2) /= 1) stop 4
  21   o = reshape((/ .true., .false., .true., .true. /), (/ 2, 2 /))
  22   e = findloc (d, b, 1, o)
  23   if (e(1) /= 0 .or. e(2) /= 1) stop 5
  24   e = findloc (d, b, 1, n)
  25   if (e(1) /= 2 .or. e(2) /= 1) stop 6
  26   n = .false.
  27   e = findloc (d, b, 1, n)
  28   if (e(1) /= 0 .or. e(2) /= 0) stop 7
  29 end