$ cat kind2.f90
program main
real(kind=10), dimension(2) :: a
integer(kind=16), dimension(2) :: b
print *,maxloc(a),maxloc(b)
end program main
$ gfortran kind2.f90
/tmp/ccKkwR8V.o(.text+0x172): In function `MAIN__':
: undefined reference to `_gfortran_maxloc0_4_r10'
/tmp/ccKkwR8V.o(.text+0x372): In function `MAIN__':
: undefined reference to `_gfortran_maxloc0_4_i16'
collect2: ld returned 1 exit status
--
Summary: Missing array intrinsics for kind=10 and kind=16
Product: gcc
Version: 4.1.0
Status: UNCONFIRMED
Severity: normal
Priority: P2
Component: libfortran
AssignedTo: unassigned at gcc dot gnu dot org
ReportedBy: tkoenig at gcc dot gnu dot org
CC: gcc-bugs at gcc dot gnu dot org
http://gcc.gnu.org/bugzilla/show_bug.cgi?id=22437
