! { dg-do compile }
! PR fortran/108501 - ICE in get_expr_storage_size
! Contributed by G.Steinmetz

program p
  real, parameter :: n = 2
  real :: a(1,(n),2) ! { dg-error "must be of INTEGER type" }
  call s(a(:,:,1))
end
subroutine s(x)
  real :: x(2)
end

! { dg-prune-output "must have constant shape" }