gcc/testsuite/gfortran.dg/pr103694.f90

   1 ! { dg-do compile }
   2 ! PR fortran/103694 - ICE in gfc_conv_expr_op
   3 ! Contributed by G.Steinmetz
   4
   5 subroutine s
   6   type t
   7      integer :: a(2)
   8   end type
   9   type(t) :: x((0.)/0)
  10   integer :: n = size(x(1)%a) ! { dg-error "does not reduce to a constant expression" }
  11 end