| ! { dg-do run } | |
| ! PR fortran/97272 - Wrong answer from MAXLOC with character arg | |
| program test | |
| implicit none | |
| integer :: i, j, k, l = 10 | |
| character, allocatable :: a(:) | |
| allocate (a(l)) | |
| a(:) = 'a' | |
| l = l - 1 | |
| a(l) = 'b' | |
| i = maxloc (a, dim=1) | |
| j = maxloc (a, dim=1, kind=2) | |
| k = maxloc (a, dim=1, kind=8, back=.true.) | |
| ! print *, 'i = ', i, 'a(i) = ', a(i) | |
| ! print *, 'j = ', j, 'a(j) = ', a(j) | |
| ! print *, 'k = ', k, 'a(k) = ', a(k) | |
| if (i /= l .or. j /= l .or. k /= l) stop 1 | |
| end |