expand: constify sepops operand to expand_expr_real_2 and expand_widen_pattern_expr...

[official-gcc.git] / gcc / testsuite / gfortran.dg / pr95503.f90

! { dg-do compile }
! PR fortran/95503 - ICE in gfc_is_simply_contiguous

program p
  complex, target :: a
  real, pointer, contiguous :: b => a%re ! { dg-error "not an array pointer" }
end