1 files changed, 48 insertions, 0 deletions
diff --git a/gcc/testsuite/gfortran.dg/minmaxloc_8.f90 b/gcc/testsuite/gfortran.dg/minmaxloc_8.f90
new file mode 100644
index 00000000000..e9f37f2b689
--- /dev/null
+++ b/gcc/testsuite/gfortran.dg/minmaxloc_8.f90
@@ -0,0 +1,48 @@
+! { dg-do  run }
+! { dg-options "-fdump-tree-original" }
+! Test that minloc and maxloc using KINDs return the right
+! kind, by using unformatted I/O for a specific kind.
+program main
+  implicit none
+  real, dimension(3) :: a
+  integer :: r1, r2, r4, r8
+  integer :: k
+  character(len=30) :: l1, l2
+
+  ! Check via I/O if the KIND is used correctly
+  a = [ 1.0, 3.0, 2.0]
+  write (unit=l1,fmt=*) 2_1
+  write (unit=l2,fmt=*) maxloc(a,kind=1)
+  if (l1 /= l2) call abort
+
+  write (unit=l1,fmt=*) 2_2
+  write (unit=l2,fmt=*) maxloc(a,kind=2)
+  if (l1 /= l2) call abort
+
+  write (unit=l1,fmt=*) 2_4
+  write (unit=l2,fmt=*) maxloc(a,kind=4)
+  if (l1 /= l2) call abort
+
+  write (unit=l1,fmt=*) 2_8
+  write (unit=l2,fmt=*) maxloc(a,kind=8)
+  if (l1 /= l2) call abort
+
+  a = [ 3.0, -1.0, 2.0]
+
+  write (unit=l1,fmt=*) 2_1
+  write (unit=l2,fmt=*) minloc(a,kind=1)
+  if (l1 /= l2) call abort
+
+  write (unit=l1,fmt=*) 2_2
+  write (unit=l2,fmt=*) minloc(a,kind=2)
+  if (l1 /= l2) call abort
+
+  write (unit=l1,fmt=*) 2_4
+  write (unit=l2,fmt=*) minloc(a,kind=4)
+  if (l1 /= l2) call abort
+
+  write (unit=l1,fmt=*) 2_8
+  write (unit=l2,fmt=*) minloc(a,kind=8)
+  if (l1 /= l2) call abort
+
+end program main