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