2 ! Tests fix for PR25059, which gave and ICE after error message
3 ! Contributed by Joost VandeVondele <jv244@cam.ac.uk>
8 INTERFACE ASSIGNMENT(=)
13 TYPE(T1), INTENT(OUT):: I
14 TYPE(T1), INTENT(IN) :: J
21 PURE SUBROUTINE S2(I,J)
22 TYPE(T1), INTENT(OUT):: I
23 TYPE(T1), INTENT(IN) :: J
24 I=J ! { dg-error "must be PURE" }
27 ! { dg-final { cleanup-modules "M1" } }