| ! { dg-do compile } | |
| ! Tests fix for PR25059, which gave and ICE after error message | |
| ! Contributed by Joost VandeVondele <jv244@cam.ac.uk> | |
| MODULE M1 | |
| TYPE T1 | |
| INTEGER :: I | |
| END TYPE T1 | |
| INTERFACE ASSIGNMENT(=) | |
| MODULE PROCEDURE S1 | |
| END INTERFACE | |
| CONTAINS | |
| SUBROUTINE S1(I,J) | |
| TYPE(T1), INTENT(OUT):: I | |
| TYPE(T1), INTENT(IN) :: J | |
| I%I=J%I**2 | |
| END SUBROUTINE S1 | |
| END MODULE M1 | |
| USE M1 | |
| CONTAINS | |
| PURE SUBROUTINE S2(I,J) | |
| TYPE(T1), INTENT(OUT):: I | |
| TYPE(T1), INTENT(IN) :: J | |
| I=J ! { dg-error "must be PURE" } | |
| END SUBROUTINE S2 | |
| END |