| ! { dg-do compile } | |
| ! Tests the fix for PR25077 in which no diagnostic was produced | |
| ! for the redefinition of an intrinsic type assignment. | |
| ! | |
| ! Contributed by Joost VandeVondele <jv244@cam.ac.uk> | |
| ! | |
| MODULE M1 | |
| IMPLICIT NONE | |
| INTERFACE ASSIGNMENT(=) | |
| MODULE PROCEDURE T1 | |
| END INTERFACE | |
| CONTAINS | |
| SUBROUTINE T1(I,J) ! { dg-error "redefine an INTRINSIC type assignment" } | |
| INTEGER, INTENT(OUT) :: I | |
| INTEGER, INTENT(IN) :: J | |
| I=-J | |
| END SUBROUTINE T1 | |
| END MODULE M1 |