2 ! { PR 85111 - this used to ICE. }
3 ! Original test case by Gernhard Steinmetz.
5 integer, parameter :: a(2,0) = reshape([1,2,3,4], shape(a
))
6 character, parameter :: ac(2,0) = reshape(['a','b','c','d'], shape(ac
))
7 integer, parameter :: b(2) = maxloc(a
, dim
=1) ! { dg-error "Different shape" }
8 integer, parameter :: c(2) = minloc(a
, dim
=1) ! { dg-error "Different shape" }
9 character, parameter :: d(2) = maxval(ac
, dim
=1) ! { dg-error "Different shape" }