2 ! Tests the fix for PR25077 in which no diagnostic was produced
3 ! for the redefinition of an intrinsic type assignment.
5 ! Contributed by Joost VandeVondele <jv244@cam.ac.uk>
9 INTERFACE ASSIGNMENT(=)
10 MODULE PROCEDURE T1 ! { dg-error "redefine an INTRINSIC type assignment" }
14 INTEGER, INTENT(OUT) :: I
15 INTEGER, INTENT(IN) :: J