2 ! PR fortran/34661 ICE on user-defined assignments in where statements
3 ! Testcase contributed by Joost VandeVondele
10 INTERFACE ASSIGNMENT(=)
15 TYPE(T1), INTENT(OUT) :: I(2)
16 TYPE(T1), INTENT(IN) :: J(2)
25 J=I ! { dg-error "Non-ELEMENTAL user-defined assignment in WHERE" }
28 WHERE (I(:)%I>0) J=I ! { dg-error "Non-ELEMENTAL user-defined assignment in WHERE" }