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

subroutine s
  type t
     integer :: a(2)
  end type
  type(t) :: x((0.)/0)
  integer :: n = size(x(1)%a) ! { dg-error "does not reduce to a constant expression" }
end