2 ! PR 92017 - this used to cause an ICE due do a missing charlen.
3 ! Original test case by Gerhard Steinmetz.
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)