1! { dg-do compile }
2! PR 92017 - this used to cause an ICE due do a missing charlen.
3! Original test case by Gerhard Steinmetz.
4
5program p
6  character(3), parameter :: a(4) = 'abc'
7  integer, parameter :: b(1) = minloc(a)
8  integer, parameter :: c = minloc(a, dim=1)
9  integer, parameter :: bb(1) = maxloc(a)
10  integer, parameter :: c2 = maxloc(a,dim=1)
11end program p
12
13