--- gcc/testsuite/gfortran.dg/pr120191.f90.jj	2024-09-17 09:04:10.523093614 +0200
+++ gcc/testsuite/gfortran.dg/pr120191.f90	2025-05-09 15:44:45.323221980 +0200
@@ -0,0 +1,614 @@
+! PR fortran/120191
+! { dg-do run }
+
+  integer(kind=1) :: a1(10, 10, 10), b1(10)
+  integer(kind=2) :: a2(10, 10, 10), b2(10)
+  integer(kind=4) :: a4(10, 10, 10), b4(10)
+  integer(kind=8) :: a8(10, 10, 10), b8(10)
+  real(kind=4) :: r4(10, 10, 10), s4(10)
+  real(kind=8) :: r8(10, 10, 10), s8(10)
+  logical :: l1(10, 10, 10), l2(10), l3
+  l1 = .true.
+  l2 = .true.
+  l3 = .true.
+  a1 = 0
+  if (any (maxloc (a1) .ne. 1)) stop 1
+  if (any (maxloc (a1, back=.false.) .ne. 1)) stop 2
+  if (any (maxloc (a1, back=.true.) .ne. 10)) stop 3
+  if (any (maxloc (a1, kind=2) .ne. 1)) stop 4
+  if (any (maxloc (a1, kind=4, back=.false.) .ne. 1)) stop 5
+  if (any (maxloc (a1, kind=8, back=.true.) .ne. 10)) stop 6
+  if (any (maxloc (a1, 1) .ne. 1)) stop 7
+  if (any (maxloc (a1, 1, back=.false.) .ne. 1)) stop 8
+  if (any (maxloc (a1, 1, back=.true.) .ne. 10)) stop 9
+  if (any (maxloc (a1, 1, kind=1) .ne. 1)) stop 10
+  if (any (maxloc (a1, 1, kind=2, back=.false.) .ne. 1)) stop 11
+  if (any (maxloc (a1, 1, kind=4, back=.true.) .ne. 10)) stop 12
+  if (any (maxloc (a1, 1, l1) .ne. 1)) stop 13
+  if (any (maxloc (a1, 1, l1, back=.false.) .ne. 1)) stop 14
+  if (any (maxloc (a1, 1, l1, back=.true.) .ne. 10)) stop 15
+  if (any (maxloc (a1, 1, l1, kind=8) .ne. 1)) stop 16
+  if (any (maxloc (a1, 1, l1, 4, .false.) .ne. 1)) stop 17
+  if (any (maxloc (a1, 1, l1, 2, .true.) .ne. 10)) stop 18
+  if (any (maxloc (a1, 1, l3) .ne. 1)) stop 19
+  if (any (maxloc (a1, 1, l3, back=.false.) .ne. 1)) stop 20
+  if (any (maxloc (a1, 1, l3, back=.true.) .ne. 10)) stop 21
+  if (any (maxloc (a1, 1, l3, kind=8) .ne. 1)) stop 22
+  if (any (maxloc (a1, 1, l3, 4, .false.) .ne. 1)) stop 23
+  if (any (maxloc (a1, 1, l3, 2, .true.) .ne. 10)) stop 24
+  b1 = 0
+  if (any (maxloc (b1) .ne. 1)) stop 1
+  if (any (maxloc (b1, back=.false.) .ne. 1)) stop 2
+  if (any (maxloc (b1, back=.true.) .ne. 10)) stop 3
+  if (any (maxloc (b1, kind=2) .ne. 1)) stop 4
+  if (any (maxloc (b1, kind=4, back=.false.) .ne. 1)) stop 5
+  if (any (maxloc (b1, kind=8, back=.true.) .ne. 10)) stop 6
+  if (maxloc (b1, 1) .ne. 1) stop 7
+  if (maxloc (b1, 1, back=.false.) .ne. 1) stop 8
+  if (maxloc (b1, 1, back=.true.) .ne. 10) stop 9
+  if (maxloc (b1, 1, kind=1) .ne. 1) stop 10
+  if (maxloc (b1, 1, kind=2, back=.false.) .ne. 1) stop 11
+  if (maxloc (b1, 1, kind=4, back=.true.) .ne. 10) stop 12
+  if (maxloc (b1, 1, l2) .ne. 1) stop 13
+  if (maxloc (b1, 1, l2, back=.false.) .ne. 1) stop 14
+  if (maxloc (b1, 1, l2, back=.true.) .ne. 10) stop 15
+  if (maxloc (b1, 1, l2, kind=8) .ne. 1) stop 16
+  if (maxloc (b1, 1, l2, 4, .false.) .ne. 1) stop 17
+  if (maxloc (b1, 1, l2, 2, .true.) .ne. 10) stop 18
+  if (maxloc (b1, 1, l3) .ne. 1) stop 19
+  if (maxloc (b1, 1, l3, back=.false.) .ne. 1) stop 20
+  if (maxloc (b1, 1, l3, back=.true.) .ne. 10) stop 21
+  if (maxloc (b1, 1, l3, kind=8) .ne. 1) stop 22
+  if (maxloc (b1, 1, l3, 4, .false.) .ne. 1) stop 23
+  if (maxloc (b1, 1, l3, 2, .true.) .ne. 10) stop 24
+  a2 = 0
+  if (any (maxloc (a2) .ne. 1)) stop 1
+  if (any (maxloc (a2, back=.false.) .ne. 1)) stop 2
+  if (any (maxloc (a2, back=.true.) .ne. 10)) stop 3
+  if (any (maxloc (a2, kind=2) .ne. 1)) stop 4
+  if (any (maxloc (a2, kind=4, back=.false.) .ne. 1)) stop 5
+  if (any (maxloc (a2, kind=8, back=.true.) .ne. 10)) stop 6
+  if (any (maxloc (a2, 1) .ne. 1)) stop 7
+  if (any (maxloc (a2, 1, back=.false.) .ne. 1)) stop 8
+  if (any (maxloc (a2, 1, back=.true.) .ne. 10)) stop 9
+  if (any (maxloc (a2, 1, kind=1) .ne. 1)) stop 10
+  if (any (maxloc (a2, 1, kind=2, back=.false.) .ne. 1)) stop 11
+  if (any (maxloc (a2, 1, kind=4, back=.true.) .ne. 10)) stop 12
+  if (any (maxloc (a2, 1, l1) .ne. 1)) stop 13
+  if (any (maxloc (a2, 1, l1, back=.false.) .ne. 1)) stop 14
+  if (any (maxloc (a2, 1, l1, back=.true.) .ne. 10)) stop 15
+  if (any (maxloc (a2, 1, l1, kind=8) .ne. 1)) stop 16
+  if (any (maxloc (a2, 1, l1, 4, .false.) .ne. 1)) stop 17
+  if (any (maxloc (a2, 1, l1, 2, .true.) .ne. 10)) stop 18
+  if (any (maxloc (a2, 1, l3) .ne. 1)) stop 19
+  if (any (maxloc (a2, 1, l3, back=.false.) .ne. 1)) stop 20
+  if (any (maxloc (a2, 1, l3, back=.true.) .ne. 10)) stop 21
+  if (any (maxloc (a2, 1, l3, kind=8) .ne. 1)) stop 22
+  if (any (maxloc (a2, 1, l3, 4, .false.) .ne. 1)) stop 23
+  if (any (maxloc (a2, 1, l3, 2, .true.) .ne. 10)) stop 24
+  b2 = 0
+  if (any (maxloc (b2) .ne. 1)) stop 1
+  if (any (maxloc (b2, back=.false.) .ne. 1)) stop 2
+  if (any (maxloc (b2, back=.true.) .ne. 10)) stop 3
+  if (any (maxloc (b2, kind=2) .ne. 1)) stop 4
+  if (any (maxloc (b2, kind=4, back=.false.) .ne. 1)) stop 5
+  if (any (maxloc (b2, kind=8, back=.true.) .ne. 10)) stop 6
+  if (maxloc (b2, 1) .ne. 1) stop 7
+  if (maxloc (b2, 1, back=.false.) .ne. 1) stop 8
+  if (maxloc (b2, 1, back=.true.) .ne. 10) stop 9
+  if (maxloc (b2, 1, kind=1) .ne. 1) stop 10
+  if (maxloc (b2, 1, kind=2, back=.false.) .ne. 1) stop 11
+  if (maxloc (b2, 1, kind=4, back=.true.) .ne. 10) stop 12
+  if (maxloc (b2, 1, l2) .ne. 1) stop 13
+  if (maxloc (b2, 1, l2, back=.false.) .ne. 1) stop 14
+  if (maxloc (b2, 1, l2, back=.true.) .ne. 10) stop 15
+  if (maxloc (b2, 1, l2, kind=8) .ne. 1) stop 16
+  if (maxloc (b2, 1, l2, 4, .false.) .ne. 1) stop 17
+  if (maxloc (b2, 1, l2, 2, .true.) .ne. 10) stop 18
+  if (maxloc (b2, 1, l3) .ne. 1) stop 19
+  if (maxloc (b2, 1, l3, back=.false.) .ne. 1) stop 20
+  if (maxloc (b2, 1, l3, back=.true.) .ne. 10) stop 21
+  if (maxloc (b2, 1, l3, kind=8) .ne. 1) stop 22
+  if (maxloc (b2, 1, l3, 4, .false.) .ne. 1) stop 23
+  if (maxloc (b2, 1, l3, 2, .true.) .ne. 10) stop 24
+  a4 = 0
+  if (any (maxloc (a4) .ne. 1)) stop 1
+  if (any (maxloc (a4, back=.false.) .ne. 1)) stop 2
+  if (any (maxloc (a4, back=.true.) .ne. 10)) stop 3
+  if (any (maxloc (a4, kind=2) .ne. 1)) stop 4
+  if (any (maxloc (a4, kind=4, back=.false.) .ne. 1)) stop 5
+  if (any (maxloc (a4, kind=8, back=.true.) .ne. 10)) stop 6
+  if (any (maxloc (a4, 1) .ne. 1)) stop 7
+  if (any (maxloc (a4, 1, back=.false.) .ne. 1)) stop 8
+  if (any (maxloc (a4, 1, back=.true.) .ne. 10)) stop 9
+  if (any (maxloc (a4, 1, kind=1) .ne. 1)) stop 10
+  if (any (maxloc (a4, 1, kind=2, back=.false.) .ne. 1)) stop 11
+  if (any (maxloc (a4, 1, kind=4, back=.true.) .ne. 10)) stop 12
+  if (any (maxloc (a4, 1, l1) .ne. 1)) stop 13
+  if (any (maxloc (a4, 1, l1, back=.false.) .ne. 1)) stop 14
+  if (any (maxloc (a4, 1, l1, back=.true.) .ne. 10)) stop 15
+  if (any (maxloc (a4, 1, l1, kind=8) .ne. 1)) stop 16
+  if (any (maxloc (a4, 1, l1, 4, .false.) .ne. 1)) stop 17
+  if (any (maxloc (a4, 1, l1, 2, .true.) .ne. 10)) stop 18
+  if (any (maxloc (a4, 1, l3) .ne. 1)) stop 19
+  if (any (maxloc (a4, 1, l3, back=.false.) .ne. 1)) stop 20
+  if (any (maxloc (a4, 1, l3, back=.true.) .ne. 10)) stop 21
+  if (any (maxloc (a4, 1, l3, kind=8) .ne. 1)) stop 22
+  if (any (maxloc (a4, 1, l3, 4, .false.) .ne. 1)) stop 23
+  if (any (maxloc (a4, 1, l3, 2, .true.) .ne. 10)) stop 24
+  b4 = 0
+  if (any (maxloc (b4) .ne. 1)) stop 1
+  if (any (maxloc (b4, back=.false.) .ne. 1)) stop 2
+  if (any (maxloc (b4, back=.true.) .ne. 10)) stop 3
+  if (any (maxloc (b4, kind=2) .ne. 1)) stop 4
+  if (any (maxloc (b4, kind=4, back=.false.) .ne. 1)) stop 5
+  if (any (maxloc (b4, kind=8, back=.true.) .ne. 10)) stop 6
+  if (maxloc (b4, 1) .ne. 1) stop 7
+  if (maxloc (b4, 1, back=.false.) .ne. 1) stop 8
+  if (maxloc (b4, 1, back=.true.) .ne. 10) stop 9
+  if (maxloc (b4, 1, kind=1) .ne. 1) stop 10
+  if (maxloc (b4, 1, kind=2, back=.false.) .ne. 1) stop 11
+  if (maxloc (b4, 1, kind=4, back=.true.) .ne. 10) stop 12
+  if (maxloc (b4, 1, l2) .ne. 1) stop 13
+  if (maxloc (b4, 1, l2, back=.false.) .ne. 1) stop 14
+  if (maxloc (b4, 1, l2, back=.true.) .ne. 10) stop 15
+  if (maxloc (b4, 1, l2, kind=8) .ne. 1) stop 16
+  if (maxloc (b4, 1, l2, 4, .false.) .ne. 1) stop 17
+  if (maxloc (b4, 1, l2, 2, .true.) .ne. 10) stop 18
+  if (maxloc (b4, 1, l3) .ne. 1) stop 19
+  if (maxloc (b4, 1, l3, back=.false.) .ne. 1) stop 20
+  if (maxloc (b4, 1, l3, back=.true.) .ne. 10) stop 21
+  if (maxloc (b4, 1, l3, kind=8) .ne. 1) stop 22
+  if (maxloc (b4, 1, l3, 4, .false.) .ne. 1) stop 23
+  if (maxloc (b4, 1, l3, 2, .true.) .ne. 10) stop 24
+  a8 = 0
+  if (any (maxloc (a8) .ne. 1)) stop 1
+  if (any (maxloc (a8, back=.false.) .ne. 1)) stop 2
+  if (any (maxloc (a8, back=.true.) .ne. 10)) stop 3
+  if (any (maxloc (a8, kind=2) .ne. 1)) stop 4
+  if (any (maxloc (a8, kind=4, back=.false.) .ne. 1)) stop 5
+  if (any (maxloc (a8, kind=8, back=.true.) .ne. 10)) stop 6
+  if (any (maxloc (a8, 1) .ne. 1)) stop 7
+  if (any (maxloc (a8, 1, back=.false.) .ne. 1)) stop 8
+  if (any (maxloc (a8, 1, back=.true.) .ne. 10)) stop 9
+  if (any (maxloc (a8, 1, kind=1) .ne. 1)) stop 10
+  if (any (maxloc (a8, 1, kind=2, back=.false.) .ne. 1)) stop 11
+  if (any (maxloc (a8, 1, kind=4, back=.true.) .ne. 10)) stop 12
+  if (any (maxloc (a8, 1, l1) .ne. 1)) stop 13
+  if (any (maxloc (a8, 1, l1, back=.false.) .ne. 1)) stop 14
+  if (any (maxloc (a8, 1, l1, back=.true.) .ne. 10)) stop 15
+  if (any (maxloc (a8, 1, l1, kind=8) .ne. 1)) stop 16
+  if (any (maxloc (a8, 1, l1, 4, .false.) .ne. 1)) stop 17
+  if (any (maxloc (a8, 1, l1, 2, .true.) .ne. 10)) stop 18
+  if (any (maxloc (a8, 1, l3) .ne. 1)) stop 19
+  if (any (maxloc (a8, 1, l3, back=.false.) .ne. 1)) stop 20
+  if (any (maxloc (a8, 1, l3, back=.true.) .ne. 10)) stop 21
+  if (any (maxloc (a8, 1, l3, kind=8) .ne. 1)) stop 22
+  if (any (maxloc (a8, 1, l3, 4, .false.) .ne. 1)) stop 23
+  if (any (maxloc (a8, 1, l3, 2, .true.) .ne. 10)) stop 24
+  b8 = 0
+  if (any (maxloc (b8) .ne. 1)) stop 1
+  if (any (maxloc (b8, back=.false.) .ne. 1)) stop 2
+  if (any (maxloc (b8, back=.true.) .ne. 10)) stop 3
+  if (any (maxloc (b8, kind=2) .ne. 1)) stop 4
+  if (any (maxloc (b8, kind=4, back=.false.) .ne. 1)) stop 5
+  if (any (maxloc (b8, kind=8, back=.true.) .ne. 10)) stop 6
+  if (maxloc (b8, 1) .ne. 1) stop 7
+  if (maxloc (b8, 1, back=.false.) .ne. 1) stop 8
+  if (maxloc (b8, 1, back=.true.) .ne. 10) stop 9
+  if (maxloc (b8, 1, kind=1) .ne. 1) stop 10
+  if (maxloc (b8, 1, kind=2, back=.false.) .ne. 1) stop 11
+  if (maxloc (b8, 1, kind=4, back=.true.) .ne. 10) stop 12
+  if (maxloc (b8, 1, l2) .ne. 1) stop 13
+  if (maxloc (b8, 1, l2, back=.false.) .ne. 1) stop 14
+  if (maxloc (b8, 1, l2, back=.true.) .ne. 10) stop 15
+  if (maxloc (b8, 1, l2, kind=8) .ne. 1) stop 16
+  if (maxloc (b8, 1, l2, 4, .false.) .ne. 1) stop 17
+  if (maxloc (b8, 1, l2, 2, .true.) .ne. 10) stop 18
+  if (maxloc (b8, 1, l3) .ne. 1) stop 19
+  if (maxloc (b8, 1, l3, back=.false.) .ne. 1) stop 20
+  if (maxloc (b8, 1, l3, back=.true.) .ne. 10) stop 21
+  if (maxloc (b8, 1, l3, kind=8) .ne. 1) stop 22
+  if (maxloc (b8, 1, l3, 4, .false.) .ne. 1) stop 23
+  if (maxloc (b8, 1, l3, 2, .true.) .ne. 10) stop 24
+  r4 = 0.0
+  if (any (maxloc (r4) .ne. 1)) stop 1
+  if (any (maxloc (r4, back=.false.) .ne. 1)) stop 2
+  if (any (maxloc (r4, back=.true.) .ne. 10)) stop 3
+  if (any (maxloc (r4, kind=2) .ne. 1)) stop 4
+  if (any (maxloc (r4, kind=4, back=.false.) .ne. 1)) stop 5
+  if (any (maxloc (r4, kind=8, back=.true.) .ne. 10)) stop 6
+  if (any (maxloc (r4, 1) .ne. 1)) stop 7
+  if (any (maxloc (r4, 1, back=.false.) .ne. 1)) stop 8
+  if (any (maxloc (r4, 1, back=.true.) .ne. 10)) stop 9
+  if (any (maxloc (r4, 1, kind=1) .ne. 1)) stop 10
+  if (any (maxloc (r4, 1, kind=2, back=.false.) .ne. 1)) stop 11
+  if (any (maxloc (r4, 1, kind=4, back=.true.) .ne. 10)) stop 12
+  if (any (maxloc (r4, 1, l1) .ne. 1)) stop 13
+  if (any (maxloc (r4, 1, l1, back=.false.) .ne. 1)) stop 14
+  if (any (maxloc (r4, 1, l1, back=.true.) .ne. 10)) stop 15
+  if (any (maxloc (r4, 1, l1, kind=8) .ne. 1)) stop 16
+  if (any (maxloc (r4, 1, l1, 4, .false.) .ne. 1)) stop 17
+  if (any (maxloc (r4, 1, l1, 2, .true.) .ne. 10)) stop 18
+  if (any (maxloc (r4, 1, l3) .ne. 1)) stop 19
+  if (any (maxloc (r4, 1, l3, back=.false.) .ne. 1)) stop 20
+  if (any (maxloc (r4, 1, l3, back=.true.) .ne. 10)) stop 21
+  if (any (maxloc (r4, 1, l3, kind=8) .ne. 1)) stop 22
+  if (any (maxloc (r4, 1, l3, 4, .false.) .ne. 1)) stop 23
+  if (any (maxloc (r4, 1, l3, 2, .true.) .ne. 10)) stop 24
+  s4 = 0.0
+  if (any (maxloc (s4) .ne. 1)) stop 1
+  if (any (maxloc (s4, back=.false.) .ne. 1)) stop 2
+  if (any (maxloc (s4, back=.true.) .ne. 10)) stop 3
+  if (any (maxloc (s4, kind=2) .ne. 1)) stop 4
+  if (any (maxloc (s4, kind=4, back=.false.) .ne. 1)) stop 5
+  if (any (maxloc (s4, kind=8, back=.true.) .ne. 10)) stop 6
+  if (maxloc (s4, 1) .ne. 1) stop 7
+  if (maxloc (s4, 1, back=.false.) .ne. 1) stop 8
+  if (maxloc (s4, 1, back=.true.) .ne. 10) stop 9
+  if (maxloc (s4, 1, kind=1) .ne. 1) stop 10
+  if (maxloc (s4, 1, kind=2, back=.false.) .ne. 1) stop 11
+  if (maxloc (s4, 1, kind=4, back=.true.) .ne. 10) stop 12
+  if (maxloc (s4, 1, l2) .ne. 1) stop 13
+  if (maxloc (s4, 1, l2, back=.false.) .ne. 1) stop 14
+  if (maxloc (s4, 1, l2, back=.true.) .ne. 10) stop 15
+  if (maxloc (s4, 1, l2, kind=8) .ne. 1) stop 16
+  if (maxloc (s4, 1, l2, 4, .false.) .ne. 1) stop 17
+  if (maxloc (s4, 1, l2, 2, .true.) .ne. 10) stop 18
+  if (maxloc (s4, 1, l3) .ne. 1) stop 19
+  if (maxloc (s4, 1, l3, back=.false.) .ne. 1) stop 20
+  if (maxloc (s4, 1, l3, back=.true.) .ne. 10) stop 21
+  if (maxloc (s4, 1, l3, kind=8) .ne. 1) stop 22
+  if (maxloc (s4, 1, l3, 4, .false.) .ne. 1) stop 23
+  if (maxloc (s4, 1, l3, 2, .true.) .ne. 10) stop 24
+  r8 = 0.0
+  if (any (maxloc (r8) .ne. 1)) stop 1
+  if (any (maxloc (r8, back=.false.) .ne. 1)) stop 2
+  if (any (maxloc (r8, back=.true.) .ne. 10)) stop 3
+  if (any (maxloc (r8, kind=2) .ne. 1)) stop 4
+  if (any (maxloc (r8, kind=4, back=.false.) .ne. 1)) stop 5
+  if (any (maxloc (r8, kind=8, back=.true.) .ne. 10)) stop 6
+  if (any (maxloc (r8, 1) .ne. 1)) stop 7
+  if (any (maxloc (r8, 1, back=.false.) .ne. 1)) stop 8
+  if (any (maxloc (r8, 1, back=.true.) .ne. 10)) stop 9
+  if (any (maxloc (r8, 1, kind=1) .ne. 1)) stop 10
+  if (any (maxloc (r8, 1, kind=2, back=.false.) .ne. 1)) stop 11
+  if (any (maxloc (r8, 1, kind=4, back=.true.) .ne. 10)) stop 12
+  if (any (maxloc (r8, 1, l1) .ne. 1)) stop 13
+  if (any (maxloc (r8, 1, l1, back=.false.) .ne. 1)) stop 14
+  if (any (maxloc (r8, 1, l1, back=.true.) .ne. 10)) stop 15
+  if (any (maxloc (r8, 1, l1, kind=8) .ne. 1)) stop 16
+  if (any (maxloc (r8, 1, l1, 4, .false.) .ne. 1)) stop 17
+  if (any (maxloc (r8, 1, l1, 2, .true.) .ne. 10)) stop 18
+  if (any (maxloc (r8, 1, l3) .ne. 1)) stop 19
+  if (any (maxloc (r8, 1, l3, back=.false.) .ne. 1)) stop 20
+  if (any (maxloc (r8, 1, l3, back=.true.) .ne. 10)) stop 21
+  if (any (maxloc (r8, 1, l3, kind=8) .ne. 1)) stop 22
+  if (any (maxloc (r8, 1, l3, 4, .false.) .ne. 1)) stop 23
+  if (any (maxloc (r8, 1, l3, 2, .true.) .ne. 10)) stop 24
+  s8 = 0.0
+  if (any (maxloc (s8) .ne. 1)) stop 1
+  if (any (maxloc (s8, back=.false.) .ne. 1)) stop 2
+  if (any (maxloc (s8, back=.true.) .ne. 10)) stop 3
+  if (any (maxloc (s8, kind=2) .ne. 1)) stop 4
+  if (any (maxloc (s8, kind=4, back=.false.) .ne. 1)) stop 5
+  if (any (maxloc (s8, kind=8, back=.true.) .ne. 10)) stop 6
+  if (maxloc (s8, 1) .ne. 1) stop 7
+  if (maxloc (s8, 1, back=.false.) .ne. 1) stop 8
+  if (maxloc (s8, 1, back=.true.) .ne. 10) stop 9
+  if (maxloc (s8, 1, kind=1) .ne. 1) stop 10
+  if (maxloc (s8, 1, kind=2, back=.false.) .ne. 1) stop 11
+  if (maxloc (s8, 1, kind=4, back=.true.) .ne. 10) stop 12
+  if (maxloc (s8, 1, l2) .ne. 1) stop 13
+  if (maxloc (s8, 1, l2, back=.false.) .ne. 1) stop 14
+  if (maxloc (s8, 1, l2, back=.true.) .ne. 10) stop 15
+  if (maxloc (s8, 1, l2, kind=8) .ne. 1) stop 16
+  if (maxloc (s8, 1, l2, 4, .false.) .ne. 1) stop 17
+  if (maxloc (s8, 1, l2, 2, .true.) .ne. 10) stop 18
+  if (maxloc (s8, 1, l3) .ne. 1) stop 19
+  if (maxloc (s8, 1, l3, back=.false.) .ne. 1) stop 20
+  if (maxloc (s8, 1, l3, back=.true.) .ne. 10) stop 21
+  if (maxloc (s8, 1, l3, kind=8) .ne. 1) stop 22
+  if (maxloc (s8, 1, l3, 4, .false.) .ne. 1) stop 23
+  if (maxloc (s8, 1, l3, 2, .true.) .ne. 10) stop 24
+  a1 = 0
+  if (any (minloc (a1) .ne. 1)) stop 1
+  if (any (minloc (a1, back=.false.) .ne. 1)) stop 2
+  if (any (minloc (a1, back=.true.) .ne. 10)) stop 3
+  if (any (minloc (a1, kind=2) .ne. 1)) stop 4
+  if (any (minloc (a1, kind=4, back=.false.) .ne. 1)) stop 5
+  if (any (minloc (a1, kind=8, back=.true.) .ne. 10)) stop 6
+  if (any (minloc (a1, 1) .ne. 1)) stop 7
+  if (any (minloc (a1, 1, back=.false.) .ne. 1)) stop 8
+  if (any (minloc (a1, 1, back=.true.) .ne. 10)) stop 9
+  if (any (minloc (a1, 1, kind=1) .ne. 1)) stop 10
+  if (any (minloc (a1, 1, kind=2, back=.false.) .ne. 1)) stop 11
+  if (any (minloc (a1, 1, kind=4, back=.true.) .ne. 10)) stop 12
+  if (any (minloc (a1, 1, l1) .ne. 1)) stop 13
+  if (any (minloc (a1, 1, l1, back=.false.) .ne. 1)) stop 14
+  if (any (minloc (a1, 1, l1, back=.true.) .ne. 10)) stop 15
+  if (any (minloc (a1, 1, l1, kind=8) .ne. 1)) stop 16
+  if (any (minloc (a1, 1, l1, 4, .false.) .ne. 1)) stop 17
+  if (any (minloc (a1, 1, l1, 2, .true.) .ne. 10)) stop 18
+  if (any (minloc (a1, 1, l3) .ne. 1)) stop 19
+  if (any (minloc (a1, 1, l3, back=.false.) .ne. 1)) stop 20
+  if (any (minloc (a1, 1, l3, back=.true.) .ne. 10)) stop 21
+  if (any (minloc (a1, 1, l3, kind=8) .ne. 1)) stop 22
+  if (any (minloc (a1, 1, l3, 4, .false.) .ne. 1)) stop 23
+  if (any (minloc (a1, 1, l3, 2, .true.) .ne. 10)) stop 24
+  b1 = 0
+  if (any (minloc (b1) .ne. 1)) stop 1
+  if (any (minloc (b1, back=.false.) .ne. 1)) stop 2
+  if (any (minloc (b1, back=.true.) .ne. 10)) stop 3
+  if (any (minloc (b1, kind=2) .ne. 1)) stop 4
+  if (any (minloc (b1, kind=4, back=.false.) .ne. 1)) stop 5
+  if (any (minloc (b1, kind=8, back=.true.) .ne. 10)) stop 6
+  if (minloc (b1, 1) .ne. 1) stop 7
+  if (minloc (b1, 1, back=.false.) .ne. 1) stop 8
+  if (minloc (b1, 1, back=.true.) .ne. 10) stop 9
+  if (minloc (b1, 1, kind=1) .ne. 1) stop 10
+  if (minloc (b1, 1, kind=2, back=.false.) .ne. 1) stop 11
+  if (minloc (b1, 1, kind=4, back=.true.) .ne. 10) stop 12
+  if (minloc (b1, 1, l2) .ne. 1) stop 13
+  if (minloc (b1, 1, l2, back=.false.) .ne. 1) stop 14
+  if (minloc (b1, 1, l2, back=.true.) .ne. 10) stop 15
+  if (minloc (b1, 1, l2, kind=8) .ne. 1) stop 16
+  if (minloc (b1, 1, l2, 4, .false.) .ne. 1) stop 17
+  if (minloc (b1, 1, l2, 2, .true.) .ne. 10) stop 18
+  if (minloc (b1, 1, l3) .ne. 1) stop 19
+  if (minloc (b1, 1, l3, back=.false.) .ne. 1) stop 20
+  if (minloc (b1, 1, l3, back=.true.) .ne. 10) stop 21
+  if (minloc (b1, 1, l3, kind=8) .ne. 1) stop 22
+  if (minloc (b1, 1, l3, 4, .false.) .ne. 1) stop 23
+  if (minloc (b1, 1, l3, 2, .true.) .ne. 10) stop 24
+  a2 = 0
+  if (any (minloc (a2) .ne. 1)) stop 1
+  if (any (minloc (a2, back=.false.) .ne. 1)) stop 2
+  if (any (minloc (a2, back=.true.) .ne. 10)) stop 3
+  if (any (minloc (a2, kind=2) .ne. 1)) stop 4
+  if (any (minloc (a2, kind=4, back=.false.) .ne. 1)) stop 5
+  if (any (minloc (a2, kind=8, back=.true.) .ne. 10)) stop 6
+  if (any (minloc (a2, 1) .ne. 1)) stop 7
+  if (any (minloc (a2, 1, back=.false.) .ne. 1)) stop 8
+  if (any (minloc (a2, 1, back=.true.) .ne. 10)) stop 9
+  if (any (minloc (a2, 1, kind=1) .ne. 1)) stop 10
+  if (any (minloc (a2, 1, kind=2, back=.false.) .ne. 1)) stop 11
+  if (any (minloc (a2, 1, kind=4, back=.true.) .ne. 10)) stop 12
+  if (any (minloc (a2, 1, l1) .ne. 1)) stop 13
+  if (any (minloc (a2, 1, l1, back=.false.) .ne. 1)) stop 14
+  if (any (minloc (a2, 1, l1, back=.true.) .ne. 10)) stop 15
+  if (any (minloc (a2, 1, l1, kind=8) .ne. 1)) stop 16
+  if (any (minloc (a2, 1, l1, 4, .false.) .ne. 1)) stop 17
+  if (any (minloc (a2, 1, l1, 2, .true.) .ne. 10)) stop 18
+  if (any (minloc (a2, 1, l3) .ne. 1)) stop 19
+  if (any (minloc (a2, 1, l3, back=.false.) .ne. 1)) stop 20
+  if (any (minloc (a2, 1, l3, back=.true.) .ne. 10)) stop 21
+  if (any (minloc (a2, 1, l3, kind=8) .ne. 1)) stop 22
+  if (any (minloc (a2, 1, l3, 4, .false.) .ne. 1)) stop 23
+  if (any (minloc (a2, 1, l3, 2, .true.) .ne. 10)) stop 24
+  b2 = 0
+  if (any (minloc (b2) .ne. 1)) stop 1
+  if (any (minloc (b2, back=.false.) .ne. 1)) stop 2
+  if (any (minloc (b2, back=.true.) .ne. 10)) stop 3
+  if (any (minloc (b2, kind=2) .ne. 1)) stop 4
+  if (any (minloc (b2, kind=4, back=.false.) .ne. 1)) stop 5
+  if (any (minloc (b2, kind=8, back=.true.) .ne. 10)) stop 6
+  if (minloc (b2, 1) .ne. 1) stop 7
+  if (minloc (b2, 1, back=.false.) .ne. 1) stop 8
+  if (minloc (b2, 1, back=.true.) .ne. 10) stop 9
+  if (minloc (b2, 1, kind=1) .ne. 1) stop 10
+  if (minloc (b2, 1, kind=2, back=.false.) .ne. 1) stop 11
+  if (minloc (b2, 1, kind=4, back=.true.) .ne. 10) stop 12
+  if (minloc (b2, 1, l2) .ne. 1) stop 13
+  if (minloc (b2, 1, l2, back=.false.) .ne. 1) stop 14
+  if (minloc (b2, 1, l2, back=.true.) .ne. 10) stop 15
+  if (minloc (b2, 1, l2, kind=8) .ne. 1) stop 16
+  if (minloc (b2, 1, l2, 4, .false.) .ne. 1) stop 17
+  if (minloc (b2, 1, l2, 2, .true.) .ne. 10) stop 18
+  if (minloc (b2, 1, l3) .ne. 1) stop 19
+  if (minloc (b2, 1, l3, back=.false.) .ne. 1) stop 20
+  if (minloc (b2, 1, l3, back=.true.) .ne. 10) stop 21
+  if (minloc (b2, 1, l3, kind=8) .ne. 1) stop 22
+  if (minloc (b2, 1, l3, 4, .false.) .ne. 1) stop 23
+  if (minloc (b2, 1, l3, 2, .true.) .ne. 10) stop 24
+  a4 = 0
+  if (any (minloc (a4) .ne. 1)) stop 1
+  if (any (minloc (a4, back=.false.) .ne. 1)) stop 2
+  if (any (minloc (a4, back=.true.) .ne. 10)) stop 3
+  if (any (minloc (a4, kind=2) .ne. 1)) stop 4
+  if (any (minloc (a4, kind=4, back=.false.) .ne. 1)) stop 5
+  if (any (minloc (a4, kind=8, back=.true.) .ne. 10)) stop 6
+  if (any (minloc (a4, 1) .ne. 1)) stop 7
+  if (any (minloc (a4, 1, back=.false.) .ne. 1)) stop 8
+  if (any (minloc (a4, 1, back=.true.) .ne. 10)) stop 9
+  if (any (minloc (a4, 1, kind=1) .ne. 1)) stop 10
+  if (any (minloc (a4, 1, kind=2, back=.false.) .ne. 1)) stop 11
+  if (any (minloc (a4, 1, kind=4, back=.true.) .ne. 10)) stop 12
+  if (any (minloc (a4, 1, l1) .ne. 1)) stop 13
+  if (any (minloc (a4, 1, l1, back=.false.) .ne. 1)) stop 14
+  if (any (minloc (a4, 1, l1, back=.true.) .ne. 10)) stop 15
+  if (any (minloc (a4, 1, l1, kind=8) .ne. 1)) stop 16
+  if (any (minloc (a4, 1, l1, 4, .false.) .ne. 1)) stop 17
+  if (any (minloc (a4, 1, l1, 2, .true.) .ne. 10)) stop 18
+  if (any (minloc (a4, 1, l3) .ne. 1)) stop 19
+  if (any (minloc (a4, 1, l3, back=.false.) .ne. 1)) stop 20
+  if (any (minloc (a4, 1, l3, back=.true.) .ne. 10)) stop 21
+  if (any (minloc (a4, 1, l3, kind=8) .ne. 1)) stop 22
+  if (any (minloc (a4, 1, l3, 4, .false.) .ne. 1)) stop 23
+  if (any (minloc (a4, 1, l3, 2, .true.) .ne. 10)) stop 24
+  b4 = 0
+  if (any (minloc (b4) .ne. 1)) stop 1
+  if (any (minloc (b4, back=.false.) .ne. 1)) stop 2
+  if (any (minloc (b4, back=.true.) .ne. 10)) stop 3
+  if (any (minloc (b4, kind=2) .ne. 1)) stop 4
+  if (any (minloc (b4, kind=4, back=.false.) .ne. 1)) stop 5
+  if (any (minloc (b4, kind=8, back=.true.) .ne. 10)) stop 6
+  if (minloc (b4, 1) .ne. 1) stop 7
+  if (minloc (b4, 1, back=.false.) .ne. 1) stop 8
+  if (minloc (b4, 1, back=.true.) .ne. 10) stop 9
+  if (minloc (b4, 1, kind=1) .ne. 1) stop 10
+  if (minloc (b4, 1, kind=2, back=.false.) .ne. 1) stop 11
+  if (minloc (b4, 1, kind=4, back=.true.) .ne. 10) stop 12
+  if (minloc (b4, 1, l2) .ne. 1) stop 13
+  if (minloc (b4, 1, l2, back=.false.) .ne. 1) stop 14
+  if (minloc (b4, 1, l2, back=.true.) .ne. 10) stop 15
+  if (minloc (b4, 1, l2, kind=8) .ne. 1) stop 16
+  if (minloc (b4, 1, l2, 4, .false.) .ne. 1) stop 17
+  if (minloc (b4, 1, l2, 2, .true.) .ne. 10) stop 18
+  if (minloc (b4, 1, l3) .ne. 1) stop 19
+  if (minloc (b4, 1, l3, back=.false.) .ne. 1) stop 20
+  if (minloc (b4, 1, l3, back=.true.) .ne. 10) stop 21
+  if (minloc (b4, 1, l3, kind=8) .ne. 1) stop 22
+  if (minloc (b4, 1, l3, 4, .false.) .ne. 1) stop 23
+  if (minloc (b4, 1, l3, 2, .true.) .ne. 10) stop 24
+  a8 = 0
+  if (any (minloc (a8) .ne. 1)) stop 1
+  if (any (minloc (a8, back=.false.) .ne. 1)) stop 2
+  if (any (minloc (a8, back=.true.) .ne. 10)) stop 3
+  if (any (minloc (a8, kind=2) .ne. 1)) stop 4
+  if (any (minloc (a8, kind=4, back=.false.) .ne. 1)) stop 5
+  if (any (minloc (a8, kind=8, back=.true.) .ne. 10)) stop 6
+  if (any (minloc (a8, 1) .ne. 1)) stop 7
+  if (any (minloc (a8, 1, back=.false.) .ne. 1)) stop 8
+  if (any (minloc (a8, 1, back=.true.) .ne. 10)) stop 9
+  if (any (minloc (a8, 1, kind=1) .ne. 1)) stop 10
+  if (any (minloc (a8, 1, kind=2, back=.false.) .ne. 1)) stop 11
+  if (any (minloc (a8, 1, kind=4, back=.true.) .ne. 10)) stop 12
+  if (any (minloc (a8, 1, l1) .ne. 1)) stop 13
+  if (any (minloc (a8, 1, l1, back=.false.) .ne. 1)) stop 14
+  if (any (minloc (a8, 1, l1, back=.true.) .ne. 10)) stop 15
+  if (any (minloc (a8, 1, l1, kind=8) .ne. 1)) stop 16
+  if (any (minloc (a8, 1, l1, 4, .false.) .ne. 1)) stop 17
+  if (any (minloc (a8, 1, l1, 2, .true.) .ne. 10)) stop 18
+  if (any (minloc (a8, 1, l3) .ne. 1)) stop 19
+  if (any (minloc (a8, 1, l3, back=.false.) .ne. 1)) stop 20
+  if (any (minloc (a8, 1, l3, back=.true.) .ne. 10)) stop 21
+  if (any (minloc (a8, 1, l3, kind=8) .ne. 1)) stop 22
+  if (any (minloc (a8, 1, l3, 4, .false.) .ne. 1)) stop 23
+  if (any (minloc (a8, 1, l3, 2, .true.) .ne. 10)) stop 24
+  b8 = 0
+  if (any (minloc (b8) .ne. 1)) stop 1
+  if (any (minloc (b8, back=.false.) .ne. 1)) stop 2
+  if (any (minloc (b8, back=.true.) .ne. 10)) stop 3
+  if (any (minloc (b8, kind=2) .ne. 1)) stop 4
+  if (any (minloc (b8, kind=4, back=.false.) .ne. 1)) stop 5
+  if (any (minloc (b8, kind=8, back=.true.) .ne. 10)) stop 6
+  if (minloc (b8, 1) .ne. 1) stop 7
+  if (minloc (b8, 1, back=.false.) .ne. 1) stop 8
+  if (minloc (b8, 1, back=.true.) .ne. 10) stop 9
+  if (minloc (b8, 1, kind=1) .ne. 1) stop 10
+  if (minloc (b8, 1, kind=2, back=.false.) .ne. 1) stop 11
+  if (minloc (b8, 1, kind=4, back=.true.) .ne. 10) stop 12
+  if (minloc (b8, 1, l2) .ne. 1) stop 13
+  if (minloc (b8, 1, l2, back=.false.) .ne. 1) stop 14
+  if (minloc (b8, 1, l2, back=.true.) .ne. 10) stop 15
+  if (minloc (b8, 1, l2, kind=8) .ne. 1) stop 16
+  if (minloc (b8, 1, l2, 4, .false.) .ne. 1) stop 17
+  if (minloc (b8, 1, l2, 2, .true.) .ne. 10) stop 18
+  if (minloc (b8, 1, l3) .ne. 1) stop 19
+  if (minloc (b8, 1, l3, back=.false.) .ne. 1) stop 20
+  if (minloc (b8, 1, l3, back=.true.) .ne. 10) stop 21
+  if (minloc (b8, 1, l3, kind=8) .ne. 1) stop 22
+  if (minloc (b8, 1, l3, 4, .false.) .ne. 1) stop 23
+  if (minloc (b8, 1, l3, 2, .true.) .ne. 10) stop 24
+  r4 = 0.0
+  if (any (minloc (r4) .ne. 1)) stop 1
+  if (any (minloc (r4, back=.false.) .ne. 1)) stop 2
+  if (any (minloc (r4, back=.true.) .ne. 10)) stop 3
+  if (any (minloc (r4, kind=2) .ne. 1)) stop 4
+  if (any (minloc (r4, kind=4, back=.false.) .ne. 1)) stop 5
+  if (any (minloc (r4, kind=8, back=.true.) .ne. 10)) stop 6
+  if (any (minloc (r4, 1) .ne. 1)) stop 7
+  if (any (minloc (r4, 1, back=.false.) .ne. 1)) stop 8
+  if (any (minloc (r4, 1, back=.true.) .ne. 10)) stop 9
+  if (any (minloc (r4, 1, kind=1) .ne. 1)) stop 10
+  if (any (minloc (r4, 1, kind=2, back=.false.) .ne. 1)) stop 11
+  if (any (minloc (r4, 1, kind=4, back=.true.) .ne. 10)) stop 12
+  if (any (minloc (r4, 1, l1) .ne. 1)) stop 13
+  if (any (minloc (r4, 1, l1, back=.false.) .ne. 1)) stop 14
+  if (any (minloc (r4, 1, l1, back=.true.) .ne. 10)) stop 15
+  if (any (minloc (r4, 1, l1, kind=8) .ne. 1)) stop 16
+  if (any (minloc (r4, 1, l1, 4, .false.) .ne. 1)) stop 17
+  if (any (minloc (r4, 1, l1, 2, .true.) .ne. 10)) stop 18
+  if (any (minloc (r4, 1, l3) .ne. 1)) stop 19
+  if (any (minloc (r4, 1, l3, back=.false.) .ne. 1)) stop 20
+  if (any (minloc (r4, 1, l3, back=.true.) .ne. 10)) stop 21
+  if (any (minloc (r4, 1, l3, kind=8) .ne. 1)) stop 22
+  if (any (minloc (r4, 1, l3, 4, .false.) .ne. 1)) stop 23
+  if (any (minloc (r4, 1, l3, 2, .true.) .ne. 10)) stop 24
+  s4 = 0.0
+  if (any (minloc (s4) .ne. 1)) stop 1
+  if (any (minloc (s4, back=.false.) .ne. 1)) stop 2
+  if (any (minloc (s4, back=.true.) .ne. 10)) stop 3
+  if (any (minloc (s4, kind=2) .ne. 1)) stop 4
+  if (any (minloc (s4, kind=4, back=.false.) .ne. 1)) stop 5
+  if (any (minloc (s4, kind=8, back=.true.) .ne. 10)) stop 6
+  if (minloc (s4, 1) .ne. 1) stop 7
+  if (minloc (s4, 1, back=.false.) .ne. 1) stop 8
+  if (minloc (s4, 1, back=.true.) .ne. 10) stop 9
+  if (minloc (s4, 1, kind=1) .ne. 1) stop 10
+  if (minloc (s4, 1, kind=2, back=.false.) .ne. 1) stop 11
+  if (minloc (s4, 1, kind=4, back=.true.) .ne. 10) stop 12
+  if (minloc (s4, 1, l2) .ne. 1) stop 13
+  if (minloc (s4, 1, l2, back=.false.) .ne. 1) stop 14
+  if (minloc (s4, 1, l2, back=.true.) .ne. 10) stop 15
+  if (minloc (s4, 1, l2, kind=8) .ne. 1) stop 16
+  if (minloc (s4, 1, l2, 4, .false.) .ne. 1) stop 17
+  if (minloc (s4, 1, l2, 2, .true.) .ne. 10) stop 18
+  if (minloc (s4, 1, l3) .ne. 1) stop 19
+  if (minloc (s4, 1, l3, back=.false.) .ne. 1) stop 20
+  if (minloc (s4, 1, l3, back=.true.) .ne. 10) stop 21
+  if (minloc (s4, 1, l3, kind=8) .ne. 1) stop 22
+  if (minloc (s4, 1, l3, 4, .false.) .ne. 1) stop 23
+  if (minloc (s4, 1, l3, 2, .true.) .ne. 10) stop 24
+  r8 = 0.0
+  if (any (minloc (r8) .ne. 1)) stop 1
+  if (any (minloc (r8, back=.false.) .ne. 1)) stop 2
+  if (any (minloc (r8, back=.true.) .ne. 10)) stop 3
+  if (any (minloc (r8, kind=2) .ne. 1)) stop 4
+  if (any (minloc (r8, kind=4, back=.false.) .ne. 1)) stop 5
+  if (any (minloc (r8, kind=8, back=.true.) .ne. 10)) stop 6
+  if (any (minloc (r8, 1) .ne. 1)) stop 7
+  if (any (minloc (r8, 1, back=.false.) .ne. 1)) stop 8
+  if (any (minloc (r8, 1, back=.true.) .ne. 10)) stop 9
+  if (any (minloc (r8, 1, kind=1) .ne. 1)) stop 10
+  if (any (minloc (r8, 1, kind=2, back=.false.) .ne. 1)) stop 11
+  if (any (minloc (r8, 1, kind=4, back=.true.) .ne. 10)) stop 12
+  if (any (minloc (r8, 1, l1) .ne. 1)) stop 13
+  if (any (minloc (r8, 1, l1, back=.false.) .ne. 1)) stop 14
+  if (any (minloc (r8, 1, l1, back=.true.) .ne. 10)) stop 15
+  if (any (minloc (r8, 1, l1, kind=8) .ne. 1)) stop 16
+  if (any (minloc (r8, 1, l1, 4, .false.) .ne. 1)) stop 17
+  if (any (minloc (r8, 1, l1, 2, .true.) .ne. 10)) stop 18
+  if (any (minloc (r8, 1, l3) .ne. 1)) stop 19
+  if (any (minloc (r8, 1, l3, back=.false.) .ne. 1)) stop 20
+  if (any (minloc (r8, 1, l3, back=.true.) .ne. 10)) stop 21
+  if (any (minloc (r8, 1, l3, kind=8) .ne. 1)) stop 22
+  if (any (minloc (r8, 1, l3, 4, .false.) .ne. 1)) stop 23
+  if (any (minloc (r8, 1, l3, 2, .true.) .ne. 10)) stop 24
+  s8 = 0.0
+  if (any (minloc (s8) .ne. 1)) stop 1
+  if (any (minloc (s8, back=.false.) .ne. 1)) stop 2
+  if (any (minloc (s8, back=.true.) .ne. 10)) stop 3
+  if (any (minloc (s8, kind=2) .ne. 1)) stop 4
+  if (any (minloc (s8, kind=4, back=.false.) .ne. 1)) stop 5
+  if (any (minloc (s8, kind=8, back=.true.) .ne. 10)) stop 6
+  if (minloc (s8, 1) .ne. 1) stop 7
+  if (minloc (s8, 1, back=.false.) .ne. 1) stop 8
+  if (minloc (s8, 1, back=.true.) .ne. 10) stop 9
+  if (minloc (s8, 1, kind=1) .ne. 1) stop 10
+  if (minloc (s8, 1, kind=2, back=.false.) .ne. 1) stop 11
+  if (minloc (s8, 1, kind=4, back=.true.) .ne. 10) stop 12
+  if (minloc (s8, 1, l2) .ne. 1) stop 13
+  if (minloc (s8, 1, l2, back=.false.) .ne. 1) stop 14
+  if (minloc (s8, 1, l2, back=.true.) .ne. 10) stop 15
+  if (minloc (s8, 1, l2, kind=8) .ne. 1) stop 16
+  if (minloc (s8, 1, l2, 4, .false.) .ne. 1) stop 17
+  if (minloc (s8, 1, l2, 2, .true.) .ne. 10) stop 18
+  if (minloc (s8, 1, l3) .ne. 1) stop 19
+  if (minloc (s8, 1, l3, back=.false.) .ne. 1) stop 20
+  if (minloc (s8, 1, l3, back=.true.) .ne. 10) stop 21
+  if (minloc (s8, 1, l3, kind=8) .ne. 1) stop 22
+  if (minloc (s8, 1, l3, 4, .false.) .ne. 1) stop 23
+  if (minloc (s8, 1, l3, 2, .true.) .ne. 10) stop 24
+end