1! { dg-do compile }
2! PR fortran/103473 - ICE in simplify_minmaxloc_nodim
3! Test case by Gerhard Steinmetz.
4
5subroutine s
6 implicit none
7 integer, parameter :: a(+'1') = [1] ! { dg-error "unary numeric operator" }
8 print *, minloc (a)
9end
10
11! { dg-prune-output "Parameter array" }
12