1! { dg-do compile } 2! Tests the fix for PR25077 in which no diagnostic was produced 3! for the redefinition of an intrinsic type assignment. 4! 5! Contributed by Joost VandeVondele <jv244@cam.ac.uk> 6! 7MODULE M1 8 IMPLICIT NONE 9 INTERFACE ASSIGNMENT(=) 10 MODULE PROCEDURE T1 11 END INTERFACE 12CONTAINS 13 SUBROUTINE T1(I,J) ! { dg-error "redefine an INTRINSIC type assignment" } 14 INTEGER, INTENT(OUT) :: I 15 INTEGER, INTENT(IN) :: J 16 I=-J 17 END SUBROUTINE T1 18END MODULE M1 19