! { dg-do compile }
! PR fortran/103505 - this used to ICE in compare_bound_mpz_t
! Testcase by G.Steinmetz

program p
  integer, parameter :: a((2.))   = [4,8] ! { dg-error "scalar INTEGER" }
  integer, parameter :: z(1:(2.)) = [4,8] ! { dg-error "scalar INTEGER" }
  print *, a(1:1)                         ! { dg-error "Syntax error" }
end