gcc/testsuite/gfortran.dg/pr103505.f90

   1 ! { dg-do compile }
   2 ! PR fortran/103505 - this used to ICE in compare_bound_mpz_t
   3 ! Testcase by G.Steinmetz
   4
   5 program p
   6   integer, parameter :: a((2.))   = [4,8] ! { dg-error "INTEGER type" }
   7   integer, parameter :: z(1:(2.)) = [4,8] ! { dg-error "INTEGER type" }
   8   print *, a(1:1)
   9 end
  10
  11 ! { dg-prune-output "Parameter array" }