gcc/testsuite/gfortran.dg/minmaxloc_15.f90

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